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ABSTRACT 



This paper discusses the design and specification of a 
general purpose operating system for the proposed All 
Application Digital Computer. The objective is to develop a 
system which is relatively hardware independent, adaptable, 
comprehensive, maintainable and functional in a multipro- 
cessing, multiprogramming environment. The operating system 
model is defined by using the techniques of Structured 
Programming, Decision Hiding, and Multi-Level Hierarchical 
Ordering. An initial set of functional requirements and 
system constraints are postulated from which additional 
functions are defined and assigned to modules for further 
specification. The modules are grouped into two classes; 
system processes which provide services to applications pro^ 
grams such as input/output operations, and primitives which 
allow for the dynamic creation and control of processes as 
well as the interprocess communications. Finally, formal 
parameter specifications are developed which identify the 
module interfaces, functions, and proposed implementation. 
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I. INTRO DUCT ION 

In the 1960's the Navy saw a proliferation of various 
types of computers and found itself faced with enormous and 
expensive computer procurement and support problems. Thus, 
in 1968 the Naval Air Systems Command undertook the design 
and development of a modular digital computer system 
(Advanced Avionic Digital Computer) for future naval air 
computing reguirements. The impetus for the project was 
cost reduction through the application of standardization 
and modularity. By using standardized modular hardware and 
software components, the proposed AADC system could be 
configured as a simple minicomputer, a complex multi"- 
processor system, or anything in between. In 1972, the 
Department of the Navy recognized the potential of this 
computer and expanded its role from the Advanced Avionic 
Digital Computer to the All Application Digital Computer 
(AADC) . The AADC system, which is still in the advanced 
development stage, is intended to satisfy the entire 
spectrum of Naval Airborne and general purpose computing 
reguirements for the 1978-1990 time period [Refs. 1 and 2]. 

A. MODULAR OPERATING SYSTEMS 

The advent of complex, multipurpose computer systems 
necessitated the development of an operating system which 
guided a computer in the performance of its tasks and 
assisted the applications programs with certain supporting 
functions. Shaw [Ref. 3] defined an operating system as 
"an organized collection of (systems) programs that acts as 
an interface between machine hardware and users, providing 
users with a set of facilities to simplify the design, 
coding, debugging, and maintenance of programs; and, at the 
same time, controlling the allocation of resources to assure 
efficient operation." The complexity of these operating 
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systems varied according to the size and purpose cf the 
computer installation; i.e., from single CPU monoprog rammed 
to multiprocessor, multiprogrammed systems. Most of the 
existing third generation computer operating systems were 
designed as highly interdependent, complex systems. Once 
these systems had been i nplemented , any changes, 
improvements, or corrections were difficult and costly. 
Benson [Ref. 4] described some of the consequences of these 
complex systems as; 



Instead of the programming task becoming easier with 
more sophisticated machines, it has become increasingly 
more difficult. Large and intricate computer programs are 
being constructed and as a direct consequence the task of 
demonstrating that the programs are correct, that is they 
are producing in ail cases the correct output for the 
input data, is nearly impossible. 

Another consequence of increased proqram complexity is 
the increased cost of design and implementation. Although 
hardware costs are generally decreasing, the cost of 
software is increasing dramatically... 

In an attempt to solve the above two problems the 
technigue of "structured programming" has been proposed. 



The primary advantages of the Modular Design Method 
("Structured Programming") have been increased system 
reliability, reduced complexity, and ease of modification. 
Consequently, the software development and support costs 
have been reduced. 



B. RESEARCH GOALS 

The goals of this research were to develop a 
modularized, general purpose operating system for the AADC, 
and to specify the modules and module interfaces in a 
functional notation. D. L. Parnas [Ref. 5] described the 
criteria to be used for module specification as: 



1. The specification must provide to the intended user 
all the information that he will need to use the program 
correctly, and nothing more. 

2. The specification must provide to the implementer all 
the information about the intended use that ne needs to 
complete the program, and no additional information; in 
particular, no information about the structure of the 
calling program should be conveyed. 
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3. The specification must be sufficiently formal that it 
can conceivably be machine tested for consistency, 
completeness (in the sense of defining the outcome of all 
possible uses) and other desirable properties of a 
specification. 

4. The specification should discuss the program in the 
terms normally used by user and implementer alike rather 
than seme other area of discourse. 



These goals were achieved by employing the modular design 
concept in a "top down” approach to design an4 
implementation. To attain these objectives, the research 
was organized as follows: 

1. Define the design philosophy and heirarchy, 

2. Define preliminary specifications for each module, 

3. Design the modules, 

4. Implement the modules, 

5. Test the model, 

6. Define formal specifications for each module. 
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II 



• AADC OPERATING S YSTEM DE SIGN METHODOLOGY 

By applying the concept of modularity and the "decision 
hiding 11 criteria, the operating system has been defined as a 
set of hierarchical modules which have facilitated the "top 
down" design and implementation. As presented in the 
following sections of this chapter/ these techniques have 
provided the means of expressing a large system as a logical 
ordering of less complex components. 



A. MODULAR DESIGN CONCEPT 

The modular design concept has been described by 
Gouthier and Pont [Ref. 6] as: 



A well defined segmentation of the project .effort 
ensures system modularity. Each task forms a separate/ 
distinct program, module. At implementation time each 
module and its inputs and outputs are well defined; there 
is no confusion in the intended interface with other 
system modules. At checkout time the integrity cf tne 
module is tested independently; there are few scheduling 
problems in synchronizing the completion of several tasks 
before checkout can begin. Finally, the system is 
maintained in modular fashion; system errors and dificien- 
cies can be traced to specific system modules, thus 
limiting the sccpe of detailed error searching. 



In recent years, there have been a number of proponents 
(Dijkstra, Parnas, Brinch Hansen, to name a few) for a 
modular design approach for developing large programs. The 
basic justification for this approach has been to allcw the 
design cf a system to proceed in a hierarchical way. By 
treating the system as a set of basic components, specifying 
the reguireaents/f unctions of each and then treating each 
component as a system (module) , the original system has been 
divided into a set of independent modules. Consequently, 
the hierarchical organization in the operating system model 
has simplified module specification, implementation and 
testing. 
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Many operating systems in past years have been designed 
with inadequate methods of program construction. Although 
specific requirements have been given, the design has 
proceeded with the impetus on efficient resource utilization 
at the expense of long term systems reliability and 
maintainability. This conventional approach has restricted 
the versatility of the computer system and thereby limited 
the applications programmers ability to design more 
advanced programs requiring extended computer capabilities. 
Additionally, any attempt to expand or modify the existing 
operating system to provide more services had been difficult 
because of the rigid set of specifications in its basic 
design [Refs. 7 and 8]. D. L. Parnas [Ref. 9] has proposed 
a solution to the problem as: 



The basic justification for the design methodology 
presented an o^d precept from engineering design: a 
problem must be defined before it is solved. The result 
was a methodology which laid great stress on specifying 
the nehavior of a system or a component in a system before 
producing the design... 

The premise that we should proceed by specifying the 
behavior cf a system before designing its components 
impli es that we can no longer look at an operating system 
as an item to be placed on a previously designed piece of 
hardware. The actual design should begin with a 
specification of the overall behavior of the hardware- 
software combination. It continues by dividing the system 
into components and they. in turn, are designed with 
little or no attention to the question of what will be 
hardware and what will be software until very late in the 
design . 



The principle goals of the Modular Design Concept as applied 
to the development of an AADC operating system have been to 
define xhe overall system requirements and to satisfy these 
requirements by designing and implementihg independent 
modules with well-defined interfaces. 



B. THE DECISION HIDING CRITERIA 

Unlike t-he conventional modular design which had defined 
operating system modules according to function, the decision 
hiding technique has been used to modularize a large system 
in a different way. Decision hiding has been proposed as a 
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means of decomposing a large system into modules based on 
isolating the decisions made at each stage of the design. 
Initially, a set of basic decisions has been specified to 
define the operating system (i.e., multiprocessor, 
mocoprogrammed, shared resources, etc.) . Once decision 
hiding has been applied to obtain a module for a specific 
decision, the technique may be re-applied to define 
decisions for sabmodules. 

Modularization by this technique has provided "a 
mechanism for improving the flexibility and 
comprehensibility of a system while allowing the shortening 
of its development time” [Ref. 10]. For example, in the 
design of a large system program by the conventional method, 
the system*s data structures; i.e., control blocks, queues, 
etc., have been accessed directly by several modules. Since 
the data structures have served as interface variables 
between certain modules, a change in the format has 
necessitated a corresponding change in all the modules using 
these structures. The decision hiding criteria added the 
requirement that each data structure be defined separately 
and managed by a specific module. Consequently, 
modification of a data structure format has required a 
change to only one module, the data structure management 
module, since the interfaces have been defined explicitly. 

C. THE HIERARCHICAL STRUCTURE 

The modular design concept using decision hiding has 
resulted in the decomposition of the operating system into a 
set of distinct modules. This technique has enhanced system 
reliability and comprehensibility, increased flexioility and 
made testing easier. Further improvements in these areas 
have been achieved by ordering the modules into a 
hierarchical structure in which the specific relations 
between the modules have been explicitly defined. 
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Since one module frequently has provided services to 
several modules, the system hierarchy has been established 
by identifying the use or dependency relationships. For 
example, those modules which identify the basic functions of 
the operating system have been assigned to the top level 
level N. Each subsequent level (N- 1 ,N-2 , . . . , 1) has been 
formed as a collection of those modules that provide the 
services required in the preceeding level. 

Two benefits have been gained from the establishment of 
a hierarchy. Firstly, the upper levels have been simplified 
because they use the lower levels as primitive operations. 
Secondly, the lower levels may be used as a subsystem 
because they do not require the services of the modules in 
the higher levels. Therefore, the technique of hierarchical 
structuring combined with the previously described design 
techniques have established a means of developing a 
well-defined operating system. 

D. MODULE INTERFACE DECISIONS 

The three design methodologies define the technique used 
in designing a modular operating system. As the functions 
and requirements were identified and assigned to separate 
modules, the specification of the module interfaces with the 
rest of the system was necessary to permit independent 
module development. These interface decisions define the 
conventions for passing information between modules; and, in 
some instances, they specify the data format and type. Once 
the module interfaces were defined, system design proceeded 
with strict compliance to these constraints. In this 
manner, system comprehensibility was enhanced and, although 
flexibility appears to be limited, the algorithm developed 
for each module may be readily changed provided the 
interface requirements are Jiot violated. Since the 

operating system will be composed of functionally related 
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modules, the module interface decisions specifically 
identify the logical flow of information between modules and 
the set cf constraints to be observed in developing them. 
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III. PRELIMINARY D ESIGN SPECIFICA TION S 

The essential requirement in preliminary design specifi- 
cation has been defining thfe purpose for which the AADC 
operating system was being designed and then to determine 
the set of basic functions which satisfy this purpose. Since 
the AADC operating system was to be designed as a multi- 
purpose, modular system which served as an interface between 
user programs and hardware, the specifications have been 
determined by considering the requirements of an operating 
system in a multiprogramming, multipr ocessing environment. 
The decision to design the operating system in this environ- 
ment was predicated on the fact that monoprogrammed and 
single processor, multipr ogrammed systems could be obtained 
as logical subsets of the design by restricting the number 
of user jots in the system and number of proeessors, 
respectively. 

The first task in developing the preliminary design 
specif ications was to identify the services to be provided 
to the user and the essential managerial functions to be 
performed by the operating system given the constraints of 
multiprogramming and multiprocessing. Firstly, the operating 
system had tc perform monitoring operations to supervise the 
activity in the system and to detect and rectify, where 
possible, software or hardware errors. Secondly, a means for 
managing resources, such as processors, files, input/cutput 
devices, space, etc., had to be provided for more efficient 
resource utilization. Thirdly, a technigue for passing 
information between separate programs (system or user jobs) 
had tc be designed; and finally, the operating system had to 
provide a simple method for controlling input and output 
operations, a means by which a user may enter his program 
into the system and obtain the requested output. 
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In addition to these functions and services, several 
requirements have been specified in the AAEC Development 
Project which have a direct effect on the design and imple- 
mentation of the operating system. In particular, the opera- 
ting system will be executable on one processor at any point 
in time; i.e., a dedicated system processor. Secondly, the 
user has been given the ability to cause the creation of 
separate processes 1 that may execute independently from the 
parent process. Another requirement has been the 
implementation of paging techniques; however, the page fault 
recognition and page replacement algorithms have been 
scheduled for implementation in hardware [Refs. 2 and 11]. 



Finally, a standardized, simple communications technique 
has been specified to facilitate interprocess communication 
and process to hardware communication. In current operating 
systems, the communications facilities have varied according 
to the type of communication; i.e., user processes pass 
information to system processes via a program interrupt 
facility, system processes communicate with other system 
processes via shared tables and lock/unlock mechanisms, etc. 
Meeker [Ref. 12] has described the problems resulting from 
these implementations as: 



By building systems with all these varied communica- 
tion facilities, we tend to overcomplicate and overburden 
the operating system and the user programs. This non- 
uniformity of communication techniques within a system 
leans to problems of synchronization and scheduling and to 
systems where the overall design and structure become 
obscure and maintenance becomes difficult... 

It would, therefore, be very desirable to build an 
operating system where data exchange techniques are 
simplified and which will execute efficiently on our 
spectrum of multiple processor hardware configurations. 
These goals can be achieved by having all processes in the 
system communicate via explicit data exchanges. 



1 A process is a task or algorithm which competes for 
resources and can be characterized by its state and 
environment. 
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The communications technique utilized in this operating 
system has been designed to pass information through the use 
of message semaphores and buffers [Refs. 3 , 8, 12, and 13]. 
The interprocess communication requirement and the function- 
al requirements identified in the preceeding paragraphs are 
summarized in Table I. 



TABLE I BASIC FUNCTIONAL REQUIREMENTS FOR THE 
A ADC OPERATING SYSTEM 



FUNCTION 



Monitoring 



DEFINITION 



Supervise the activity in the 
system: Detect and rectify hardware 
and software errors. 



Resource Allocation 



Supervise the allocation of 
resources to competing system and 
user processes. 



Input/Output Control 



Method for users to enter programs 
into the system and obtain output. 



Communication 

Requirements 



Technique for passing information 
from process to process, process to 
hardware, and in operator-system 
communications. 



Multiprogramming 
and Multiprocessing 



Scheduling technique for optimizing 
system utilization while providing 
processor execution time equitably. 



Dedicated Processor 



Operating system executable on only 
one processor at any point in time. 



User Created Processes 



Method by which a user process can 
create independent/dependent user 
processes. 



Paging 



(To be implemented in hardware) 



Having identified the basic functional requirements of 
the operating system, the preliminary design specifications 
were determined in the manner described in the preceeding 
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chapter* To facilitate design and hierarchical ordering, 
the Modules were divided into two distinct classes 
(processes and primitives) . Process modules were designed 
to perform specific functions while competing for system 
resources; whereas the primitive modules were designed to 
perform the common services required by user and system 
processes. In particular, primitives were used to provide 
the mechanism for resource allocation and process 
communication, and to protect critical sections. 

The operating system processes have been assigned to 
level 2, whereas the primitives which provide services to 
the processes were assigned to level 1. Within each of these 
levels, the modules have been ordered hierarchically depen- 
ding on the services they provided to other modules on the 
same level. For example, a system monitor module reguired 
the services of an input/output control module to receive 
instructions from or pass information to the computer system 
operator. In this case, the monitor would be assigned to 
level 2.2 and the I/O controller to level 2,1. Hence, any 
module on level 2 may utilize the services provided by 
modules on level 1; however within the levels, services may 
be obtained from modules on an adjacent,, lower level. The 
remaining sections of this chapter are concerned with-the 
preliminary design specifications of the operating system 
modules. The Fundamental Algorithm Technique used by Knuth 
[Kef. 14] was adopted to define the program logic of the 
processes and primitives described in the following 
sections . 

A. OPERATING SYSTEM PROCESSES - LEVEL 2 

The first stage in the preliminary design specifications 
for the operating system processes was to determine which of 
the basic functions could best be performed by a process ana 
then to determine wnich processes provided services to other 
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LEVEL 2.6 



EEROS 

HANDLER 



LEVEL 2.5 



OPERATOR 

cvciTPM 

COMMUNICATOR 



LEVEL 2.4 







INPUT 




OUTPUT 






INITIATOR j 


i 


CONTROLLER 




CONTROLLER 




TERMINATOR 



LEVEL 2.3 



INPUT 




FILE 




OUTPUT 


DEVICE 




MANAGER 




DEVICE 


INTERFACES 








INTERFACES 



LEVEL 2.2 



FILE 


! 


FILE 


SPACE 




DEVICE 


MANAGER 




INTERFACES 



LEVEL 2.1 



INTERRUPT 

HANDLER 



FIGURE 1. THE HIERARCHY OF OPERATING SYSTEM PROCESSES 



22 










processes. In particular, the monitoring functio-n and the 
input/output control functions were selected to be performed 
by processes. In designing the modules to satisfy these 
reguirements and to provide the capability for 
multiprogramming-multiprocessing , nine (9) processes were 
specified. The need for additional processes to serve as 
interfaces between selected hardware devices (i.e., line 
printers, card readers, consoles, disk drives, etc.) and 
system processes was also considered. Figure 1 is the 
hierarchical ordering of the operating system processes. 

1. Error i Han dle r - Lev el 2.6 

In any multi-purpose operating system, there must be 
an internal method for the handling of user, systems and 
hardware generated error conditions. Corrective action may 
be accomplished by canceling the ill-behaved user process, 
terminating and then replacing a system process, or 
notifying the system operator of the problem and waiting for 
instructions. In any case, the action to be performed was 
determined by the designers of the computer system 

(including both hardware and software) with particular 
emphasis on the precise hardware configuration. 

Since the physical machine was unspecified, a nodule 
to perform these functions was designed to simulate the 
monitoring function; however the error correction routine 
has been left undefined. Once the specific actions are 
identified, the appropriate code may be inserted (provided 
the interface reguirements are not violated) . The following 
algorithm describes the basic logic of the Error Handler: 

1.1 [Wait for message] Reguest (error 
message) . 

1.2 [Interpret message] Decode the error 
message and determine the action to 
be taken. 

1.3 [Recoverable] If correctable Then 
take predetermined action Otherwise 
Go to step 1.5. 
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1.4 



[Inform operator] Release (operator 
message) and Go to step 1.1. (Notify 
the operator of the error and action 
taken. ) 

1.5 [ Nonrecoverable ] Release (operator 
message) . (Notify the operator of 
the error and reguest instructions.) 

1.6 [Wait for answer] Reguest (answer) . 

1.7 [Answer received] Perform the action 
specified and Go to step 1.1 



ALGORITHM 1 ERROR HANDLER 

The "wait for an error condition", "wait for 
answer", and "notify the operator" were performed in this 
implementation through the use of the message passing 
primitives (Request and Release) to be defined later. since 
information was being exchanged with the operator, the Error 
Handler needed the use of an I/O device (s) . To hide the 
actual manner in which this was performed and to simplify 
the I/O controllers, this service was assigned to an 
independent module — the Operator System Communicator. 

2 - O pe rator Syste m Comm unicat or - L evel 2.5 

In addition to providing services to the Error 
Handler, the Operator System Communicator was designed to 
assist the computer operator in controlling the system. The 
operator needed the ability to ‘start up* a specific job; to 
add, delete or modify the system configuration (start up a 
new disk drive, delete a card reader, or modify a disk 
pack) ; or to obtain information concerning the status of 
gueues, availibility of core, etc. The Operator System 
Communicator was implemented to provide a centralized 
control point and a uniform way of obtaining system 
information or giving orders to the system. As in the case 
of the Error Handler, the full design of this module 
depended upon knowledge of the possible configuration and 
the repertoire of "operator-system" instr uctians. All 
messages are parsed via the Request and Release primitives. 
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2.1 [Wait for message] Request (operator 
I/O) . 

2.2 [Interpret message] Determine who 
sent the message ana the action to 
be taken. 

2.3 [From operator] Perform action 
specified, and Go to step 2.5. 

2.4 [From system] Perform the action 
specified. (i.e., pass the message 
to the operator, etc.) . 

2.5 [Answer requested] If (answer 
requested) Then Release (answer) • Go 
to step 2,1. 



ALGORITHM 2 OPERATOR SYSTEM COMMUNICATOR 



3. In put/ O utpu t Cont roller - Level 2.4 



Since there is generally a great disparity between 
the rate of information transfer among input devices and 
main storage access time, the concept of spooling has been 
adopted to assist the system in satisfying the 
multiprogramming functional requirement. In particular, 
spooling operations utilize the services of file management 
and employ the concept of buffering (a buffer is a storage 
area used to give a better match between processor speeds 
and I/O device speeds) in accomplishing its function. 
Watson [Ref. 15] describes the I/O problem as follows: 



The I/O system must cope with a wide variety of 
devices and therefore is quite complicated at detailed 
levels of design. This complication arises because cr the 
large number of special situations which can arise in 
handling communication with each type of device. To create 
a design which is as conceptually simple as possible, the 
designer should probably isolate as many device-dependent 
characteristics as possible in separate routines (often 
called dev ice drivers) and then interface these routines 
with mere general routines wnich are device-independent. 

One can recognize four major functions in handling I/O 
devices: 

1 Euffering of information transmitted between I/O 
devices, auxiliary storage and memory 

2 Proper handling of interrupts or other device to 
processor signals and their interface to the rest of 
the system 

3 Reserving and allocating I/O resources 



25 




4 Protection of the resources dedicated to one user or 
process from interference by another. 



The Input Controller was designed to "spool" user 
jobs into a file on some auxiliary device and to enter the 
job control language (JCL) and various administrative data 
into a jcb queue. The Initiator can then retrieve this data 
and create the user process. To avoid the possibility of 
"deadlocks*' for file space (i.e., the Input Controller gets 
blocked indefinitely for space to spool the incoming data) , 
the responsibility for requesting file space was assigned to 
the input device interface processes. Hence, the Input 
Controller, which is device independent, receives JCL 
information, file information, etc. from the various 
interface processes, stores this information in the job 
queue and sends a message to the Initiator. 



3.1 [Wait for a message] Request 
(output) . 

3.2 [Interpret message] Determine the 
action required. 

3.3 [JCL] If (JCL or file information) 
Then store the data and Go to step 

3. 1. 

3.4 [Input for Operator System 

Communicator] If (Operator input) 
Then Release (Operator I/O) and Go to 
step 3. 1. 

3.5 [ EOF ] If [End Of File (EOF)] Then 
enter data in the job queue. 
Release (New Job) fto the rnitiator) , 
and Go to step 3.T. 

3.6 [From Operator System Communicator] 
If (Configuration Modification) Then 
take appropriate action and Go to 
step 3.1. 



ALGORITHM 3 INPUT CONTROLLER 



In item 3.6 of the above algorithm, the message 
received by the Input Controller was from the Operator 
System Communicator. The decision was made to have the Input 
Controller create the interface processes for the input 
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devices since it had to maintain separate files tc store 
incoming data from each device. Thus, if the operator 
entered the command to start up another card reader, the 
Communicator would instruct the Input Controller to do it, 
wait for an answer that it had been done, and then inform 
the operator. 



The Output Controller was designed to provide a 
uniform, generalized technique for handling the various 
reguested output operations. In keeping the design simple 
and device independent, the Controller was implemented to 
utilize the services of the -device interface processes and 
the File Manager. In particular, the Output Controller, 
upon receiving a reguest to output a message, assigned a 
device and then passed the information to the device 
interface process. In the case of printing files, the data 
was passed from the File Manager via the Controller tc the 
preassigned (maybe user or system specified) interface 
process. In the event a device was not available, the 
Controller queued the output request. 



4.1 [Wait for message] Request (output 
message) . 

4.2 [Interpret message] Determine the 
action to be taken. 

4.3 [Operator System Communicator 

message] Take specified action and 
Go to step 4.1. (i.e.. Release 

message to the operator, add a new 
device , etc . ) . 

4.4 [File Manager message] Release (full 

buffer) and Go to step 4.1. (pass 

the information to be output to" the 
appropriate device interface 

process) . 

4.5 [Terminator message] If (Device 

available) Then get data from print 
queue, take action to output the 
gob, and Go to step 4,1; Otherwise 
queue the print job and Go to step 



ALGORITHM 4 OUTPUT CONTROLLER 



27 




4 



• Initiator - Level 2 ,4 

One of the principle functions of the operating 
system was to prepare a user program for execution. From the 
JCL and file information stored in the job queue, the system 
determined and then allocated the initial resources reguired 
by the job. In so doing, the user job was transformed into a 
process which was assigned an internal identification, given 
resources or access to them, and entered on the "ready 
active" gueue (a list of processes waiting for a processor) . 
Furthermore, a system table [Process Control Block (PCB) ] 
containing management information about the jot was 
established for use by the operating system as the process 
proceeded through execution. The Initiator was designed and 
implemented to prepare the user program for execution. 

5.1 [Get internal name] Request (Inarae) 

(Wait for space for a PCB if 
necessary) . 

5.2 [Get a job from the job gueue] 

Request (New job) . 

5.3 [Interpret JCL] Determine which 
resources are reguired by the 
process and verify that this process 
may have access. 

5.4 [Obtain required resources] 

For (eacn reguired resource) Do 
Request (resource) . 

5.5 [Create Process Control Block] 

Call Create PCB. 

5.6 [Activate the process] Call Activate 
(new process) . 

5.7 [Free job queue space] Release(Job 
queue) . 

5.8 [Finished] Go to step 5.1. 

ALGORITHM 5 INITIATOR 

5 • Term in ato r - l evel 2.4 

When a process completes execution (either normally 
or abnormally) , the various resources created by the process 
or assigned to it were destroyed or deallocated. 
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respectiv€ly . Additionally, any output requirements were 

satisfied, including operator notification if necessary. 
Since in the design of the operating system, both system and 
user processes were given the ability to create subordinate 
processes, the termination of the parent process necessita- 
ted the termination of its progeny (dependent processes) . 
The Terminator was designed to perform these functions when 
notified by the system or user to terminate a process. 

6.1 TWait for termination message] 

Bequest (ter mination message). 

6.2 r Verify message] If (Invalid) Then 
Release (Err or message) ana Go, to 
step 6. 1. 

6.3 [Compile list of processes] Insert 

S rocess to be terminated and all 
ependent processes on the list and 
i <- n (number of items in the 
list) . 

6.4 [Select process for termination] 

Term_Process <- list (i) . 

6.5 [Print output file] Release (Output) . 

6.6 [Free all resources] Deallocate 

resources. 

6.7 [Free Internal Name] Release (job 
name) . 

6.8 [Finished] i <- i-1; If i = 0 Then 

Go to step 6.1 Otherwise Go to step 

6.4. 



ALGORITHM 6 TERMINATOR 



6 • Rile Man agement - Levels 2.3 and 2.2 

The design and subsequent implementation of file 
management techniques simplified the development cf a 
multiprogramming operating system. Serving as an interface 
between processes and the auxiliary storage devices (disks, 
drums, tape drives), the File Manager was designed to 
perform such functions as controlling access to files, 
creating and destroying files, opening ana closing files, 
and providing backup and restoration services, if possible. 
Additionally, characteristics of the file, i.e., record 
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size, data storage methods, etc., and of the device were 
hidden from the Manager to eliminate file type and device 
dependencies. 



In multiprogramming systems, simultaneous reguests 
from separate processes for access to a shared file required 
the file Manager to determine if multiple access can be 
permitted. Since the reguests may be for read access, write 
access, cr both, the File Manager was implemented to satisfy 
multiple read access requests but restricted write access to 
only one process at a time. As in the case of the Input and 
Output controllers, the File Manager was assigned the 
additional function of creating, destroying and supervising 
the device interface processes which perform the reading and 
writing of data. 



7.1 [Kail for a message] Request (File 
operation) . 

7.2 [Interpret message] Determine action 
to be taken. 

7.3 [Configuration modification] If 
(configuration modification) Then 
perform required action and Go to 
step 7.1. (From Operator System 
Communicator - add, delete or modify 
the status of a storage device) , 

7.4 [New file added] If (new file) Then 
update master list of known files 
and Go to step 7.1. (From the File 
Space Manager - a new file has been 
added) . 

7.5 [Directory information] If 

(directory information) Then update 
directory and release available 
space to the File Space Manager as 
necessary and Go to step 7.1. (From 
an Interface Process when the 
storage device is added to the 
system) . 

7.6 [Operation on a file] If (file 
operation) Then [If (access allowed) 
Then perform operation Otherwise 
Release (Error message) ] Go to step 
7.1. (A process has requested a file 
read, write, open, close, etc. The 
access check can include deadlock 
checks as necessary) . 



ALGORITHM 7 FILE MANAGER 
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When a process requests access to a file, the File 
Manager tested for potential deadlock situations (a deadlock 
occurs when process A had been given write access tc file A, 
process 2 had been given write access to file B, and then 
processes 1 and 2 request access to files B and A, respec- 
tively, and consequently, become blocked indefinitely) . 
Many solutions have been presented to solve the deadlock 
problem, some of which include: requesting and then 
assigning all resources at the time of process creation, the 
concept of "sacrificing”, and more complex schemes [Refs. 16 
and 17]. The concept of "sacrificing" was implemented in 
this design. In particular, once a process requested a 
write access which was not immediately serviceable or had 
write access and then requested read access which was not 
serviceable, all file resources owned by this process became 
preemptatle. In this scheme, the user must be careful to 
request file access at points where preemption does not 
prohibit recovery. 

In creating a file, available storage space was 
found, tagged as being non-a vailable and reserved for access 
by the process requesting a new file. To prevent the File 
Manager from being blocked indefinitely while attempting to 
service a request for space allocation, the responsibility 
for this function has been assigned to a separate process. 
File Space Manager. Thibs, processes desiring a new file made 
their request to this process rather than the File Manager. 

The File Space Manager was designed to manage the 
space available in auxiliary storage and to create new files 
upon request by a process. The allocation-deallocation and 
accounting functions were implemented as a coordinated 
operation with the File Manager. In particular, the File 
Manager was assigned the r esponsibilty to determine the 
change in available space as files were destroyed or devices 
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were added, removed or modified (change in disk pack, tape, 
etc.) and then, to inform the Space Manager of the change 
and its effect on available space. 



8.1 [Wait for a message] Request (space 
operation) . 

8.2 [Interpret message] Determine action 
to be taken. 

8.3 [System configuration change] 

If (Device deleted) Then Go to step 
8.1 Otherwise If (Outstanding space 
requests) Then Go to step 8.7. 

8.4 [Space freed] If (space freed and 
outstanding space requests) Then Go 
to step 8.7; Otherwise Go to step 
8.1 (from file Manager - a file has 
been destroyed) . 

8.5 [Permanent file] If (permanent file) 
Then [If (space available) Then 
update available space and Go to 
step 8.7 Otherwise Release (Error 
message) and Go to step 8.1. 

8.6 [Temporary file] If (temporary file 
Then [ While ( space not available) 
Request (space from File manager) ]; 
Update available temporary space. 

8.7 [Create a file] Get an RCB; update 

space available; update file 
directory for the selected storage 
device: and Release (answer) to the 

requesting process; Go to step 8.1. 



ALGORITHM 8 FILE SPACE MANAGER 



Upon fielding a request from a process to create a 
temporary file which required more space then what was 
available, the Space Manager was blocked until a change in 
the system occurred or a previously created file was 
destroyed. When space was not available for a permanent 
file, an error condition was set and the Space Manager 
proceeded to service other requests. 



7 • Inter rup t Handler - Level 2. 1 * 

The interrupt concept, a second and third generation 
advance, was devised to facilitate multiprogramming 
operations. Sayers [Ref. 18] defined an interrupt as M a 
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break in the normal flow of program execution,.. usually 
caused by a hardware-generated signal, such as an I/O event, 
a program error, a machine error, or an operator-initiated 
signal." The interrupt was used primarily to compensate for 
the speed differential between I/O operations and central 
processing by permitting the processor to continue execution 
of a process while servicing the I/O reguests of other 
processes. lor example, a process was blocked upon 

reguesting I/O, the I/O operation was started and the 
processor was allocated to another process. Once the I/O 
operation was completed, the system was notified via an 
interrupt signal. At this point, the process which was 
blocked on this I/O operation was permitted to preempt the 
current process and resume execution, or was placed in a 
"ready-active" queue to wait for a processor. 

The Interrupt Handler, as implemented in this 

operating system, was designed to service various interrupts 
by determining which interrupt was set and performing any 
predefined action. The Interrupt Handler, therefore, served 
as an interface between the hardware devices and the 
processes using these devices. When an interrupt occured, 
the Handler was invoked directly (by hardware) to service 
the interrupt. In particular, the state of the current 
process was saved, the Handler released a message tc the 
process waiting for the interrupt and then, control returned 
to the interrupted process. 

9.1 [Wait for interrupt] Wait to be 
invoked by hardware. 

9.2 [Save state of current process] 

Save_process <- Curr eat_process; 

Call Save_state (C urrent_process) . 

9.3 [Reset Cur rent_process ] 

Current_Process <- Interr upt_Hndlr . 

9.4 [Determine action] Identify 

interrupt and required action. 

(i.e., Witich process is concerned 
with this interrupt and the proper 
message semaphore) . 
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9.5 [Send message] Release (message to 
process) . 

9.6 [Restore the preempted process] Call 
Restore state (Save process) and Go 
to step 9.1. 

ALGORITHM 9 INTERRUPT HANDLER 

B. OPERATING SYSTEM PRIMITIVES - LEVEL 1 

In a multiprogramming, multiprocessing environment, 
mechanisms must be provided for the synchronization of 
processes during information transfer; for allocation and 
deallocation of resources; for process creation, control and 
termination; and for protection of critical sections of 
cade, of data structures and of resources. The primitives 
were designed to perform these functions. 

In particular, the technique for interprocess 
communication was defined through the use of the Reguest, 
Release and Allocator primitives; processor allocation was 
achieved by the Scheduler primitive. The primitives 
Savestate, Restorestate, Interrupt Enabler and Interrupt 
Disabier assist in process control and protection. Finally, 
the various system data structures (i.e.. Resource Control 
Block - RCB , Process Control Block - PCB, etc.) were 
"hidden" from the rest of the system by providing the 
primitives RCB Handler and PCB Structures. 

A hierarchical organization of the primitives was 
defined in that various primitives require the services of 
other ones. For example, all primitives invoke the 
Interrupt Disabier at the start of execution and the 
Interrupt Enabler upon completing execution. This was 
necessary to preclude preemption while executing critical 
sections of code. Figure 2 represents the primitive 

hierarchy . 
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at any point in time. Request and Release messages that 
cannot be immediately matched are queued on the message 
semaphore and ordered by the priority of the invoking 
process. 

TABLE II* MESSAGE BUFFER 

PURPOSE 

Internal name of the process releasing 
a message. 

Indicates if an answer to the release 
is required. 

Internal identification of the message 
class identifier to be used in the 
answer . 

Identifies the input/output buffer. 

Used to pass action identifiers (inter- 
face variables) ; device, process, 
resource external names; and adminis- 
trative data. 

Request and Release may be considered as a software 
interrupt scheme utilized by processes. A process invoking 
Bequest "enables the interrupt" associated with the 
specified message semaphore and a process invoking Release 
"sets the interrupt". After a Request has been matched with 
a Release, the "message semaphore interrupt" is disabled 
until Reguest is invoked again with that semaphore. 

The ability to Release/Request a message to/from a 
specific process was incorporated to provide a usable system 
with a reasonable number of message semaphores. For 
example, to perform a file operation using the services of 
the File Manager, process A only needs the message semaphore 
($F ILEOP) and the message format utilized by the File 
Manager; no ether information is needed. Process A releases 
a SFILEOP message (restricted to the File Manager for 
requests) and specifies the operation desired. If an answer 
is reguired for synchronization, the message semapnore 
process A will use in the Reguest is also specified. Vihen a 



FIELD 

RELEASOR 

ANSWER-REQUIRED 

MESSAGE- SEMAPHORE 

BUFFER LOCATION 
DATA FIELDS 
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Beguest from the File Manager is matched with the Release 
from process A, the message data and A's internal name are 
provided to the File Manager. Upon completion of the 
desired operation, a message will be Released to process A 
specifically, on the desired semaphore. In this manner, 
several processes may be blocked with a Request on a single 
message semaphore, such as $WAIT; and another process may 
Release messages to a specific process, not necessarily the 
process at the head of the queue. 



10.1 [Disable Interrupts] 

Call Interr upt_Disabler . 

10.2 [Verify semaphore] 

Call RCB Data ("validate") . 

If (Invalid) Then set error code and 
Go to step 10.6. 

10.3 [Verify authorization to access} 
Call PCB_Data ("access") ; 

If (Unauthorized) Then Set error 
code and Go to step 10.6. 

10.4 [Determine necessary action] 

Cali Allocator ( "dat a" , Match) . 



10.5 



[If a match is found then activate 
the process] If (Match) Tnen 
Call PCB Data ("get priority", PRI) ; 
Call ^CB_Data ("put sta tus" , RE ADYA) ; 
Call PC3_Data (" get type - System or 
User " , Type_Procf ; 

Call RCB Put_Queue (PIName , 

Ready A Que, Type Process, 

Priority) * 

Call Scheduler. 



10.6 [Enable Interrupts] 

Call Interrupt_Enabler . 



AIGORITHM 10 RELEASE 



11.1 [Disable Interrupts] 

Cali In terrupt_Qisabler . 

11.2 [Verify semaphore] 

Call RCB Data ("validate") ; If 
(Invalid]" Then set error code and Go 
to step 11.6. 

11.3 [Verify authorization to access] 

Call PCD Data ("access") ; 

If (Unauthorized) Then set error 
code and Go to step 11.6. 

11.4 [Determine necessary action] 

Call Allocator ("data", Match) . 
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11.5 [Test for a match] If (Match) Then 
go to step 11.7. 

11.6 [Block the process] 

Call PCB_Daia ("status = BLOCKED”); 
Call Savestate ("invoking process") ; 
Call Scheduler. 

11.7 [Enable Interrupts] 

Call Interrupt^Enabier . 



ALGORITHM 11 REQUEST 



The Allocator was designed to perform the functions 
common to Eeguest and Release: matching messages or gueueing 
messages if no match is found. The entry point RCB_Match to 
RCB Structures was implemented to simplify the Allocater and 
hide the data structure. 



12. 1 [Check for a match ] 

Call RCB_Match ("data") . 

12.2 [Match and a Request ] If (Match & 
Request) Then Do Transfer message to 
Requestor's buffer; and Return. 

12.3 [Match and a Release] If (Match 6 
Release) Then Do; Transfer message 
to the Blocked Process' Buffer; 
Enter Releasor's internal name in 
the buffer; and Return. 

12.4 [No_Match and a Release] If 
(No_Katch & Release) then Allocate a 
temporary message buffer; and Enter 
the message data into that buffer. 

12.5 [No match-queue message by Priority] 
Call PCS Data ("get priority") ; 

Call EC'S PutQue ["message, priority, 
and semaphore") ; Return. 



ALGORITHM 12 ALLOCATOR 



2. Prim itive - Sched uler - Leve l 1. 3 

The processor which is freed when a process is 
blocked must be reassigned to another • process to efficiently 
use the processor (s) in a multiprogramming environment. 
Many scheduling algorithms have been proposed; such faptors 
as the priority and the past I/O behavior of processes can 
be used to determine which process should be scheduled, or 
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if a currently running process should be preempted. Other 
techniques include f irst-in-f irst-out (FIFO) scheduling and 
round-robin scheduling, in which each process is allocated a 
time-slice on a recurring basis. The scheduling algorithm 
is usually tailored to achieve the goal of the system, such 
as maximizing throughput in a batch system, or immediately 
starting critical processes in a command/control system. 
Since the Scheduler is run on the designated operating 
system processor, that processor must be started last to 
preclude preempting the Scheduler, 



13.1 [Initialize variables] 

Processor <- User_Processor (1) ; 

Que <— User; i < — 2 ; 

Cycle_f inished <— False. 

13.2 [Check processor] If (Processor is 
not allocated) Then Go to step 13.6. 

13.3 [Check the queue] Call RCB Find (’’get 
priority of the top element in Que) ; 
If (Que is- empty) Then Go to step 



13.4 [Check for preemption] If 

(preemption is desirable) Then Call 
Savestate (Current Process, Processor) 
Otherwise Go to step 13.7. 

13.5 [Change status and queue current 
process] Call PCB_Data ("pu t status 
of current process to REDY A") ; Call 
RCB Put Que ("insert current process 
on £ue"7- 

13.6 [Start-up highest priority process] 
Call RCB_Get_gue (" process at the 
head of Que") ; 

Call PCB Data ("put status of New 
Process to RUNNING") ; 

Call Restorestate (New Process, 
Processor) . 

13.7 [Check for a new cycle] 

If |Cycle_Fin ished) Then Go to step 

13.8 [Select next processor] 

If (more user processors) Then Do; 
Processor <- Userprocessor (i) ; 
i <- i + 1 ; Ena; Else Do; 

Processor <— S ystem_Processor ; 

Que <— GS_Que; 

Cycle_Finishea <- True; End. 

13.9 [Loop] Go to step 13.2. 



ALGORITHM 13 SCHEDULER- 
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3 • Devi ce Director y - L e vel 1.3 

The Device Directory primitive was designed to 
interface with the Operator System Communicator, Input 
Controller, Output Controller and File Manager processes to 
provide information concerning system configuration, I/O 
devices and device interface processes. During system 
initialization and, when required, for system 
reconfiguration, this primitive would be invoked tc cbtain 
the data used in creating Resource Control Blocks for the 
devices and Process Control Blocks for the interface 
processes. 

The Directory was designed to store two classes of 
data; system configuration (menu) and resource data. System 
configuration data defines several possible configurations 
which may be selected at system "start_up n . For example. 
Menu A may identify Cardreaderl, Lineprinter3, Consoie2, 
etc. and Menu B identifies Cardreader2, Lineprinter3, 
Console!, etc. The resource data contained in the Directory 
may consist of the interface process's external name, code 
location, priority, etc. and the device's access qualifier 
(shared or private) , blocksize (buffer length) , interrupt 
identifier, and so forth. This data is used by the Operator 
System Ccmmunica tor to identify the devices to be activated 
and, hence, the message to be sent to the appropriate data 
transfer controller (Input Controller, Output Controller or 
File Manager) . The various data transfer controllers use 
this information to create the interface process and device 
RCB. The Device Directory primitive provides a centralized 
and standard method for accessing the required information 
to select, activate, and modify the system configuration; 
consequently, a modification to the current functions of and 
services provided by the operating system. 
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14. 1 



Disable the interrupts] 

:all Interrupt_Disabler . 

14.2 [Identify information type] If 
Henu_Data Then Look_Up ("menu") ; 

Otherwise Look_Up ( ,, device ,, J . 

14.3 [Entry found] If Entry_Found Then 
transfer data Otherwise set error 
code. 

14.4 [Enable the interrupts] 

Call Interrupt_Enabler . 

ALGORITHM 14 DEVICE DIRECTORY 

4 . Data Str uctur es - Level 1.2 

The data structures primitives were designed 
primarily to eliminate the data dependencies and alleviate 
the critical section problem that has plagued many second 
and third generation computer operating systems. For 
example, concurrent access to a common data element was 
prevented by designing these modules as ncn-interr uptable 
primitives and defining interface variables through which 
the processes and other primitives access or store data in 
the structures. 

Every process and resource is represented in the 
system by its state, identification and accounting/admin- 
istrative information. A corresponding data structure was 
defined to contain this descriptor data for use in basic 
process and resource operations (i.e., scheduling, message 
handling, etc.). Tables III ai)d IV represent a flexible and 
general purpose model structure for process and resource 
descriptors, respectively. For example, a field tray be 
added or deleted provided the interface variable associated 
with the field is also appropriately modified. If a data 
type were changed, code to convert the data to the type 
expected by other modules need only be added to the data 
structure module. The Resource Control Block was designed 
to be functional for the types of resources identified 
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TABLE III. PROCESS CONTROL BLOCK BATA STRUCTURE 



FIELD 

EXTERNAL NAME 
PARENT 

CHILD 

LEFT SIBLING 
RIGHT SIELING 

PAGE TABLE POINTER 

FI LE-SH A RE-WRITE 
COUNTER 

PROCESS TYPE 
RESOURCE VECTOR 

FILE ACCESS STATUS 

MESSAGE EUFFER 
STATUS 

PRIORITY 

QUANTUM 

CYCLE TIME 
PROCESSOR 
STATE VECTOR 



PURPOSE 



User/operator specified process naice. 

Internal name of process which created 
this process or which is the parent of 
a sibling which created this process. 

Internal name of a dependent process 
created by this process or another child 
of this process. 

Link to related independent processes. 
Value is a process internal name. 

Link to related independent processes. 
Value is a process internal name. 

Address of the process's Page Table. 

Counter of the number of outstanding 
file open reguests for write access to a 
non-owned, shared file. 

Identifies system versus user process. 

Identifies resources accessible or 
acquired . 

Identifies the process as a reader or 
writer, or if it is in a sacrificed 
condition. 

Pointer to the process's message buffer. 

The status of the process in the system; 
i.e., Blocked, Running, Ready, etc. 

Identifies relative importance of the 
process; used in queueing and scheduling 
operations. 

Specified time interval in which a 
processor is assigned to this process 
for execution. 

Reschedule time period for a recurrent 
process . 

Internal name of the processor allocated 
to the process for execution. 

Save area for the initial or last state 
of execution; i.e., instruction counter 
and processor register values. 
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TAELE IV 



RESOURCE CONTROL BLOCK DATA STRUCTURE 



HELD 


EXAMPLE RESOURCE 


TYPES AND 


FIELD USE 




SEMAPHORE 


DEVICE 


STORAGE 


FILES 


ASSIGNED 


T. or F. 


T . or F . 


T. or F. 


T. or F. 


CREATOR 


system 
proc. iid 


system 
proc. iid 


system 
proc. iid 


system 
proc. iid 


OWNER 

% 


creator 


interface 
proc. iid 


File 

Manager 


proc. iid 


EXTERNAL NAME 


— 


— 


— 


— 


DEVICE STATUS 


N/A 


active or 
hold 


active or 
hold 


active or 
hold 


DEVICE IIC 


N/A 


N/A 


RCB Nr. 


RCB Nr. 


SHARED-PRIVATE 


S. or P. 


S. or p. 


S. or P. 


S. or p. 


COUNTER-SIZE 


counter 


number 


space 

available 


file 

length 


STORAGE DEVICE 
NAME 


N/A 


external 

name 


N/A 


external 

name 


OPEN FILE 


N/A 


N/A 


N/A 


Read/fcrite 


FILE TYPE 


N/A 


N/A 


Temporary 

Permanent. 


Temporary 

Permanent 

both 


LEFT QUEUE 
POINTER 


Request 

messages 


process 

accessing 


not used 


process 

accessing 


RIGHT QUEUE 
POINTER 


Release 

messages 


process 
waiting 
for access 


file 

creation 

requests 


file 

open 

reguests 





SAMPLE 


LEFT/RIGHT 


QUEUE 








FROM 


message 

addressor 


proc. 


iid 


proc . 


iid 


proc. 


iid 


TO 


message 

addressee 


messa 

semap 


Lore 


messa 

semap 


ficre 


messa 

semap 


ce 

core 


PRIORITY 


proc. pri. 


proc. 


pri. 


proc. 


pri. 


proc. 


pri. 


FILE DATA 


N/A 


N/A 




file 


iid 


Read/Kr ite 


MESSAGE 

POINTER 


— 


N/A 




N/A 




N/A 




UP-LINK 


— 


— 


- 


-- 


- 


-- 


- 


DOWN-LINK 


— 


— 


— 


— 


- 


— 


- 
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during the design of the operating system; i.e., semaphores 
(message class identifiers) , devices (readers, writers, 
consoles, etc.)# secondary storage devices (tapes, drums, 
disk packs, etc.), and files. 



15. 1 
15.2 



15.2.1 



15.2.2 

15.3 



15.4 

15.5 

15.5.1 

15.5.2 
15.6. 

15 . 6.1 

15.6.2 

15.7 

15.8 



[Disable interrupts] 

Call Interr upt_Disabler. 

[Create a PCBl 

If (action = create__PCB) Then 
Begin. 

[Check for space and authorization] 
If ((space available) & (Process has 
authorization)) Then assign a PCB 
Number and enter data passed; 

Else set Error code. 



[Finished] Go to step 15.8; End. 

[Find PCB Number corresponding to an 
External Name] 

If (action = Find PIName) Then Do: 
Search active PCBs for specified 
external name: If (found) Then 
PIName_Parameter <- PCB Number; 

Else PIName Parameter 0 ; Go to 
step 15.8; End. 

[Check validity of PCB Number] 

If (PCB Number is invalid) Then Do; 
Set Error code; go to step 15.8; 
End. 



[Free a PCB] 

If (action = Release PCB) Then 
Begin. 

[Check authorization] 

If (Process has authorization) Then 
set specified PCB status to 
inactive; Else set Error code. 

[Finished] Go to step 15. 8-; End. 

[Put data into a PCB] 

If (action = Pmt_Data) Then Begin. 

[Check authorization] 

If (Process has authorization) Then 
store the data; Else set Error code. 

[Finished] Go to step 15.8; End. 



(Get data from a PCB] 

If (action = Get_Data) Then 

Data Parameter <- Desired PCB Field. 



Enable interrupts] 
all Interr upt_Enabler. 



ALGORITHM 15 PCB STRUCTURES 
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16. 1 


[Disable interrupts! 
call Interr upt_Disabler . 


16.2 


[Create an RCB] 

If (action = Create_RCB) Then Begin. 


16.2.1 


[Check if space is available] 

If (space for specified RCE type is 

available) Then 

assign RCB and enter data; 

Else set Error code. 


16.2.2 


[Finished] Go to step 16.14. 


16.3 


[ Find an RCB Number corresponding to 
an External Name] 

If (action = Fma RIName) Then 
Begin. 


16.3.1 


[Search active RCBs] 

Search active RCBs for the External 
Name specified. 


16.3.2 


[Return value] 

If (External Name is found) Then 
RIName Parameter <- RIName; 

Else RTName^Parameter <- 0. 


16.3.3 


[Finished] Go to step 16.14; End. 


16.4 


[Check validity of RCB Number] 
If (Invalid RCB Number) Then Do; 
set Error code:^ 
go to step 16.14; End, 


16.5 


[Free an RCB] 

If (action = Release RCE) Then set 
RCB_Number specified to unassigned. 


16.6 


[Enter data in an RCB] 

If (action = Put Data) Then 
enter specified data element. 


16.7 


[Retrieve data from an RCB] 

If (action = Get Data) Tnen 
Data_Parameter <~ desired RCB field. 


16.8 


[Find a Process in a queue] 

If (action = Find_Proc) Then Begin. 


16.8.1 


[ Search the specified Queue for the 
specified PINarne] 

Searcn Queue for PIName: 

If (found) Then return the data and 
queue position; 

Else return "Process not found". 


16.8.2 


[Finished] Go to step 16.14. 
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16.9 



16.9.1 



16.9.2 

16.10 

16.11 

16.11.1 



16.11.2 

16.12 



16.12.1 



16. 12.2 
16. 13 

16. 13. 1 



16.13.2 
16. 14 



[Find the Process at the specified 

f osition in a Queue] 
f [action = Find At Position) Then 
Begin. " r 

[ Find the Queue element at the 
specified position] 

Find the specified Queue element; 

If ( specified Queue element is 
active) Then return data in the 
Queue element: Else return "Queue 

element not active". 

[Finished] Go to step 16.14; End. 

[Enter an element in a Queue] 

If (action = Put_Que) Then enter the 
data in the specified Queue 

[Remove an element from a queue] 

If (action = Get__Que) Then Begin. 

[Find the specified queue element] 
Find Queue element; 

If (Queue element is found) Then 
Remove the specified Queue element; 
Else return "element not found". 



[Finished] Go to step 16.14; End. 

[ Transfer a queue element from the 
specified queue to the opposite 

? ueue] If (action = Transfer Que) 
hen Begin. 

[Find the specified queue element] 
Find Queue element; 

If (Queue element is found) Then Do; 
Remove Queue element; Insert Queue 
element on the opposite queue: End; 
Else return "element not found". 

[Finished] Go to step 16.14; End. 

[Compare specified data with queue 
element data in a specified queue] 
If (action = Hatch) Then Begin. 

[Check each active element in the 
queue for compatible data ] 
Match_Found <- False; 

For i = (first queue element) Until 
(Last queue element) Do; 
compare data: 

If (compatible) Then Do; 

Match Found <- True; exit For loop; 
End; End: 

If (Ma tch_Found) Then Remove queue 
element and return data: 

Else return "match not round". 

[ Finished ] End. 

[Enable interrupts! 

Call In terr upt_Enabler . 



ALGORITHM 16 RCB HANDLER 
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5 „ Primitiv e-H ardware Interfa ce ^ Lev el 1.1 



A processor has a normal complement of registers 
used to fetch, select and execute instructions, and a 
mechanism for interrupt recognition. To provide tc the 
operating system the facilities for altering process 
execution (i.e., preempt and schedule/reschedule processes) 
and to protect vital operations on commonly accessed data 
structures, a set of primitives have been designed to enable 
and disable interrupts and to save, set and reset the 
processor registers. The primitives, Interrupt_Enabler , 
Interrup t__Disabler , Savestate and Eestor estate , defined 
below, perform these functions when invoked by processes and 
other primitives. 



17.1 [Specific or all interrupts] 

If (Interrupt# = 0) Then Enable all 
the interrupts in the current 
Savevector; Otherwise Enable 
Interrupt# . 



AIGORITHM 17 INTERRUPT ENABLER 



18.1 [Specific or all interrupts] 

If (Interrupt# = 0) Then Disable all 
interrupts and save status in 
Savevector; Otherwise Disable 
Interr upt#. 



ALGORITHM 18 INTERRUPT DISABLER 



19.1 [Disable all interrupts] 

Call In terr up t_Disabier . 

19.2 [Get copy of processor registers] 
Temp_regs = CPUREGS (Processor#) . 

19.3 [Save copy in PCB] 

Call PCB_uata (“ temp_regs" , process) . 

19.4 [Enable the interrupts] 

Call Interr upt_Enabler . 



ALGORITHM 19 SAVESTATE 




20.1 [Disable all interrupts] 

Call Interrupt^Disabler . 

20.2 [Get copy of saved Statevector] 
Call PCp_Data ( M temp_Eegs" f Process) . 

20.3 [Set processor registers] 

CPUREGS (Processor#) = Temp_Regs. 

20.4 [Enable the interrupts] 
call Interrupt_Enabler . 



A1GOBITHM 20 RESTORESTATE 
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IV 



DESIGN VALIDATION 



This chapter is concerned with implementation of the 
modules specified in Chapter III, testing the design 
correctness and demonstrating the feasibility of the 
proposed operating system model. Time constraints precluded 
the development of the entire system, so the decision was 
made to verify selected functions (i.e., interprocess 
communication and synchronization using semaphores and 
messages) . For example, the Error Handler was implemented 
to receive error messages and to generate messages for the 
system operator, but error correction routines were left 
undefined. Similarly, the Operator System Communicator 
module was provided a minimum set of control message codes 
to identify selected actions (add or delete a device, etc.) 
and to handle message passing. Certain primitives, 
including these which perform the primary functions of 
dynamic creation and control of processes and resources as 
well as interprocess communication, were implemented in 
detail. The criterion that modules were to be independent 
allowed the implementation to proceed along a path through 
the processes to the primitives with incomplete or partially 
developed modules at several nodes. Model testing was 
performed using three additional modules: a hardware 
simulator, an initialization procedure and a preprocessor 
macro. The Formal Module Specifications with accompanying 
PL/I implementations, and the test modules are described in 
appendices C and D, respectively. 

A. THE HARD WARE SIMULATOR 

The Hardware Driver module was designed to perform 
hardware functions such as recognition of interrupts and 
execution of code at an address specified by the instruction 
counter. Additionally, code was included to create the 
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desired system state so that system behavior could be 
validated. 

One of the processor "registers'* was used as an 
instruction counter to indicate the current status of 
program execution and another "register" was used to 
identify the process which was scheduled to execute. An 
integer mapping was used to identify the processes (i.e., 
the Error Handler was identified as process one (1) , the 
Operator System Communicator as process two (2), etc.). The 
process identification and instruction counter were 
separated to avoid encoding and decoding information in the 
Hardware Driver, and to allow the model to be expandable to 
simulate paging. 

B. THE INITIALIZATION MODULE 

A special module was implemented for initializing 
interface variables and for creating the environment 
necessary to start up the system. PCB's were created for 
the operating system processes as were the semaphore RCB's 
they reguired for interprocess communication. The 
initialization procedure in the PCB Structures module was 
used to create the PCB for the Error Handler; the PCB's for 
the remaining system processes were created dynamically in 
the Initialization routine with the Error Handler identified 
as the running process. Message and I/O buffers were 
allocated and assigned to each of the system processes, and 
the internal identification of the resources reguired by 
each process were entered in their respective access 
vectors . 

The initialization process could have been inpleEented 
Using PL/I initial attributes (initializing variables at 
compile time) within the various modules. However, in 
consonance with the Decision Hiding Criteria, the initial- 
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ization of the interface variables was implemented in a sep- 
arate module. Additionally, the initial configuration was 
more easily modified during the design and testing phase. 

C. THE PREPROCESSOR MACHO 

A preprocessor macro (SIMULTR) was used to adapt the 
PL/I modules for testing. Simulation interrupt points 
(SIM__INTERRUPT_PTs) were placed in the modules where a 
process might be blocked (i.e., after invoking the primitive 
Bequest) . The macro was implemented to include the code 
necessary to generate a label at the selected interrupt 
points, set the simulation instruction counter tc the 
appropriate value and exit the module. The additional 
statements SIM_START and SIM_END were necessary to generate 
the code to initialize the simulation and generate 
declarations . 

D. TESTS OF SELECTED OPERATING SYSTEM FUNCTIONS 

Selected system processes were implemented to verify 
interprocess communication techniques. Since the test 
program required to realistically demonstrate this function 
would encompass the operations performed by Request, 
Release, Allocator, PCB Structures and RCE Handler, these 
primitives were implemented in detail to provide a basis for 
testing the model. Subsequently, test programs were 
designed and implemented to assure the correctness of the 
data storage and retrieval operations, gueue manipulation 
techniques, and message handling procedures. 

In particular, the Initialization Module was invoked to 
initialize the interface variables, establish the PCB's for 
the selected processes and to create RCB^ for the message 
class identifiers (semaphores) . Once the initial 
environment was established, the ability to send messages to 
a specrfic process was tested by multiple invocations of 
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Release with a specific semaphore, a varying addressee, and 
a unigue message. Request was then invoiced with the same 
semaphore and both specific and general addressees to verify 
the logic of Release, Allocator and RCB Structures. The 
roles of Release and Request were then reversed. The 
primitives were tested in a similar manner using messages 
with general addressees. 

Having successfully tested these primitives, the 
Scheduler primitive and the Hardware Driver were implemented 
to schedule and simulate running the selected system 
processes. In particular, a test program was included in 
the Hardware Driver to simulate the system operator entering 
commands to add an input device, an output device, and a 
disk unit. These messages were released to the Input 
Controller to be passed to the Operator System Communicator. 
The system processes, upon being selected for execution and 
then invoked by the Hardware Driver, initiated a Request for 
a message. Since there was a matching Release on the queue 
for the Input Controller, it was received, interpreted and 
passed to the Operator System CommunicatoiT which in turn 
received and interpreted the message. The simulation 
continued until the initial three messages released by the 
Hardware Driver and the subsequent responses were received 
by the appropriate system processes. 

The write statements generated by the Preprocessor Macro 
were used to trace the flow of messages from the Input 
Controller to the Operator System Communicator, and from 
that process to the Input Controller, Output Controller and 
File Manager. The logic used to create the interface 
processes was not validated; only the sequence in which the 
messages were requested, released and received was verified. 
Message flow to the Error Handler was also demonstrated 
during the preliminary system tests; however, comprehensive 
error generation and validation was not accomplished . 
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Y . SUMMAR Y AN D R ECOMMENDATIONS 

The emergence of sophisticated, versatile computer 
systems has resulted in the need for operating systems which 
are efficient, adaptable, maintainable and general purpose. 
Adaptability permits expansion or modification within 
reasonable cost and time constraints. Maintainability makes 
system error detection and correction more feasible. 
Generality must exist if the operating system is to be 
useful to the many classes of potential users. 

A. SUMMABY 

As presented in Chapter II, the first step in the design 
of an operating system was the identification and 
specification of the overall system behavior in a 
hardware-software environment. Before specifying and 
iirple menting the system modules, a set of primary functions 
were postulated and the design was then carried cut by 
employing the techniques of Structured Programming, Decision 
Hiding and Hierarchical Ordering. At each level of 
development, new functions were identified and the decision 
was made to either implement the functions within the scope 
of the current module being designed or to implement it in a 
separate module. The principle consideration for specifying 
new modules was the need for having one module perform 
common services for the other modules, thus reducing the 
system complexity. 

The modules were grouped into two classes (processes and 
primitives) and ordered hierarchically. As the design 
proceeded, hardware dependencies were identified and program 
stubs were inser te d to identify the areas of incomplete 
specification. However, the functions to be performed at 
these stubs were defined so that the appropriate code nay be 
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written and inserted as the target machine and system 
configuration are specified. In this manner, it was possible 
to accomplish the goal of designing a well defined general 
purpose operating system. 

Though the goal was far reaching, it did not seem 
practical to approach the design of an operating system by 
considering each segment of the system independently (for 
example, designing interprocess communication without 
considering data structures and data access methods) . The 
design proceeded in a "top-down 11 fashion, specifying modules 
to perform the various functions required by the previously 
defined nodules. As a result of having a set of machine 
independent module definitions, it was then possible to 
implement and test the postulated function of each module 
separately at first, and then collectively. Finally, formal 
specifications identifying the parameters, data structures, 
module interfaces, and primary- functions were developed for 
each module. 

Many of the features of the design are of particular 
interest. The interprocess communication modules define the 
techniques which aid in resource acquisition and process 
control (interrupt) and which provide the ability for 
synchronization of asynchronous operations. The data 
structures modules are the focal point for accessing, 
transferring and storing of data while allowing for the 
design and implementation cf other modules which are 
independent of the data structures. This latter case 
defines a mechanism for generating adaptive changes to an 
existing data structure without necessitating major changes 
to ether modules providing the change is within the 
interface constraints. 
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B 



B ECO MM EN CATIONS 



As stated previously, the primary goal of this project 
was the design of a general purpose, . modular operating 
system which, at least conceptually, was hardware 
independent. Since module functions were postulated within 
a set cf generalized constraints, extenticns of this work 
may proceed in several directions. Firstly, each module 
specification should be more closely investigated to 
determine if a better technique for performing the function 
may replace the proposed one. 

Secondly, investigation into the hardware versus 
software dilemma should continue with the emphasis on 
identifying operating system functions which, if performed 
by hardware, would enhance system performance without 
degradation of system flexibility, adaptability, and 
generality. In particular, the primitives Request and 
Release as designed in this system are two functions which 
could conceivably be implemented in hardware. Additionally, 
disabling and enabling interrupts, saving and restoring 
process states should be performed by simple machine 
instructions. 

Thirdly, a target machine should be specified for which 
a sinulaticn model may be developed to test the correctness 
of the design decisions in a real time and multiprocessing, 
multiprogramming environmen-t. The stubs should be replaced 
with workable test programs to support the simulation. 

The programming language PL/I was used for module 
implementation and testing rather than a conventional use of 
an assembler language. The use o f PL/I enhanced the 
compr ehensab ility of the program logic and provided several 
mechanisms which aided in module implementation and testing; 
i.e., based and pointer variables, on conditions, generic 
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entry pcint specif ications , and preprocessor functions* 
These high level language constructs and the addition of a 
construct for supporting queueing operations are recommended 
for inclusion in CS-4 (see Appendix B) . Additionally, a 
compiler for the language should be designed which employs 
the latest techniques for code optimization since compile 
time is, in general, less critical than execution time. 
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APPENDIX A: GLOSSARY 



Access Vector: PCB data element that identifies the 

resources and primitives which may be used by the 
process. 



Active: A status value which indicates that a process is 

waiting for a processor. 



Algorithm: A prescribed set of well-defined rules for the 

solution of a problem in a finite number of steps. 



Assignment Vector: PCB data element which identifies the 

resources a process currently controls, must be a subset 
of the access vector. 



Blocked-! or-Tiraer (BlockedT) : A status value which 

indicates that a process is waiting for a deadline. 



Buffer: A temporary storage area used for the transmission 

of data. 



Child: PCB data element that identifies the first 

dependent process in the list of related dependent 
processes. 



Cycle Time: PCB data element that identifies the 

reschedule time interval for a recurrent process. 

Deadline: The latest time at which the execution of a 

process may begin. 

Deadlock: The condition that results from the allocation of 

resources among certain processes in such a way that it 
is impossible to grant additional reguests to thes-e 
processes. 



File: A collection of related data items treated as a unit. 



Hardware: Physical equipment, e.g. r mechanical, 

electrical, or electronic devices. 

Interface: Ihe linkage and conventions established for 

communication between twc independent elements, usually 
between a process and another process, computer 
operator, I/O device, etc. 



Interrupt: A break in the normal flow of execution usually 

caused by a hardware- generated signal. 



JCL: Job Control Language - used to provide job 

specifications. 
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Job Queue: Contains the JCL and administrative data of a 

process prior to its creation. 



Left Sibling: PCB data element that links the process to 

and identifies a related independent process having the 
same parent. 



LSI: Large scale integration. 



Module: One buliding block or logical unit which is used 

in the construction of a system. 



Multiprocessing: The use of two or more processors to 

logically or functionally divide processes and to 
simultaneously execute various processes or segments of 
processes asynchronously. 



Multiprogramming: The use of the computing system to 

perform interleaved execution of two or more different 
processes which simultaneously contend for system 
resources. 



Operating System: A set of programs and routines which 

guide a processor in the performance of its tasks and 
assist the programs and programmers with supporting 
functions. 



Page: A process section of convienient size for 

transmission Detween secondary storage and main storage. 



Page Table: PCB data element that contains the location of 

the process* pages in secondary storage. 

Parent: PCB data element that identifies the process on 

which this process is immediately dependent. 

PCB: Process Control Block, a collection of control data 

concerning a process. 

Primative: An algorithm that is invoked by a process and 

is executed as a part of the invoking process. 

Preemption: The seizing of resources previously allocated 

to processes. 

Print Queue: Contains the administrative data identifying 

processes* output files. 

Priority: PCB data element that identifies the order of 

precedence for competing processes. 

Process: An algorithm which requires resources and can be 

characterized by its state ana environment. 
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Processor State Vector: PCB data element that specifies 

the necessary information to start (restart) the 
process; i.e., processor* s registers contents. 

\ 

Quantum: PCE data element that identifies a limited or 

algorithmically specified time interval during which a 
processor is assigned to a process in a multiprogramming 
environment for sharing the processor among competing 
processes. 

Queue: An ordered or unordered list of processes waiting 

for seme resource or service. 



RCB; Resource Control Block, a collection of data 
concerning a resource. 

Resource; Any facility of the computer system or operating 
system required by a process. 

Right Sibling: PCB data element that links the process to 

and identifies a related independent process having the 
same parent. 



Running: A status value which indicates that a process is 

in execution. 



Semaphore: Identifies a resource or class cf resources. 



Software: Programs or routines to be executed on computer 

hardware . 



Spooling: A technique for interleaving I/O operations and 

process execution. 



Status: PCB data element that identifies the current state 

of the process in the system. 

Stub: Denotes a logical break in a program at which point a 

subprogram or macro call may be inserted when the 
functional subspecification is implemented. 

Suspend: A status value which indicates that a process is 

not contending for resources and cannot be scheduled for 
execution until a system or process imposed condition 
has teen satisfied. 
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APPENDIX B: MODELLING LANGUAGE 

The work done by D. L. Parnas in the development of 
SODAS [Ref. 9] and the high level language operating 
systems, such as the Burroughs MCP, MUITICS and Project SUE, 
have provided the motivation for modelling and implementing 
the AADC operating system in a high level language. 
Furthermore, the AADC program specifications have included 
the development of a new high level language, tentatively 
called CS-4, and the design and implementation of an 
operating system for AADC in the proposed language [Refs. 11 
and 19]. Basically, CS-4 has developed as an extension to 
the Navy Tactical Compiler Monitor System (CMS-2) with the 
impetus on utilizing the proposed AADC hardware features and 
facilitating the programming of efficient executive and 
applicaticns programs [Ref. 20]. 

A comparison of selected features of CS-4 to those 
defined in the ianguag-es available at the Naval Postgraduate 
School has been the basis for the selection of a high level 
language for modelling. The results of the comparison, 
presented in Table V, have led to the selection of PL/I in 
that it is more representative of CS-4 than the ether 
languages. Additionally, PL/I has provided a number of I/O 
control, storage allocation and system control features that 
facilitated testing and simulating the model. Those 

features of CS-4 considered germaine to the modelling effort 
are defined below: 

1) Compound Data Structures: A hierarchical set of 

variables that refer to an aggregate of data items 
that may or may not have different attributes (data 
types) , 

2) Logical, Boolean, Arithmetic and Conditional 

Operators: A set of symbols each specifying .an 

operation to be performed; the result of which 

depends upon the type cf data and context in which it 
occurs, i. e . , 

IF {[ ( A- 1 ) > b ] OR (C = 3) ] THEN ... 

the minus sign, is arithmetic, the ’OR* is bcolean 
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and the greater than, >, 
conditional operators. 



and equal. 



signs are 



External Data Declaration: An explicit or 
contextual declaration of an identifier such that it 
is only known within the scope of the declaration. 



External Procedure Declaration: An explicit or 

contextual declaration of a procedure such that the 
procedure is only known within the scope of the 
declaration. 

Variable Size Array Declarations at Runtime: The 

dimension of an array is determined and space 
allocated during execution of the program. 

Flew Control: The ability to control the execution 

of a specific instruction or set of instructions: 

i. Algolic Case Statment 

ii. If and compound If Statment 

iii. Do Statment 

iv. While Statment, 



Limited Scope Variables: An identifier which is 
known only within the scope of its declaration. 

Macro Definition: A compile time feature which 
provides the ability to specify an instruction or set 
of instructions which replace the macro name where it 
occurs in the source program. 

Character String: A string composed of zero or more 
characters from the complete set of characters whose 
bit configuration is recognizable by the computer 
system in use. 




TABX.fi ¥ 



CO HP A AX SON OP SELECTED HIGH XBVBL LANGUAGES 



C5-4 FEATURE 


ALGOL 


FORTRAN 


XPL 


PL-360 


PL/I 


APL 


Compound Data 
Str uctures 


Yes 1 


No 


NO 


No 


Yes 


Yes 1 


Logical, Eoolean, 
Conditional, and 
Arithmetic operators 


Yes* 


JYes 1 


Yes 1 


Yes 1 


Yes 1 


Yes 1 


External Data 
Declaration 


No 


Yes 1 


No 


Yes 1 


Yes 


No 


External Procedure 
Declaraticn 


No 


Yes 1 


No 


Yes 1 


Yes 


No 


Variable Size Array 
Declarat ion- Runtime 


No 


No 


No 


No 


Yes 1 


Yes 1 


Flew Control 


Yes 


Yes 1 


Yes 


Yes 


Yes 1 


Yes 


Limited Scope 
Variables 


Yes* 


Yes 1 


Yes 1 


Yes 1 


Yes 


Yes 1 


Macro Definition 


No 


No 


Yes 1 


Yes 1 


Yes 1 


Yes 1 


Character String 


Yes 


No 


Yes 


Yes 


Yes 


Yes 
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Limited Implementation 




APPENDIX C 



MODULE SPECIFICATION AND IMPLEMENTATION 



PREPROCESSOR FUNC TIO N 



/* ************************** 

NAME CHANGER PREPROCESSOR MACRO, USED TO SHORTEN 
IDENTIFIERS WITH THE EXTERNAL ATTRIBUTE TO SEVEN 
CHARACTERS DUE TO A PL/I RESTRICTION 

"ENAELED" BY ^INCLUDE NAMCHGR ; 



^DECLARE ( 

CURRENT PROCESS, 

CREATE RCB, 

DESTROY RCB , 

D F VICE I3IRECTORY, 

DEV L LIMIT, 

DEV U - LIMIT, 

ERROR“HANDLER, 

FILE 1 LIMIT, 

FILE - MaNAGER, 

FILE - SP AC E MANAGER, 

FILE - U LIMIT, 

F I N D — PT N A M E , 

FINE - INAM £, 

INITIALIZATION, 

INITIATOR , 

INPUT CONTROLLER, 

INTERRUPT HANDLER, 

OPERATOR "SYSTEM COMMUNICATOR, 
OUTPUT CONTROLLER, 

PCBSTRINT, 

PCT L LIMIT, 

PCT — U — LI M IT , 

PRIMITIVE ACTIVATE, 
PRIMITIVE - ALLOCATOR, 

PRIMITI VE — CREATE PCB, 

PRIMITIVE - DESTROY, 

PRIMITIVE - GETQUE, 

PRIMITIVE - INTERRUPT DIS ENABLER, 
PRIMITIVE - INTERRUPT - ENABLER, 
PRIMITI V E^PCBD AT A, - 
PRIMITI VE^PUTQUE, 

PRIMITIVE - RCBDATA, 

PRIMITI VE — RCB HANDLER, 
PRIMITIVE — RCB — MATCH , 
PRIMITIVE - RELLASE, 

PRIMITI VE~RE STOP, ESTATE, 

PR I MI TI V E — RE QUEST, 

PRIMITIVE - SAVES! ATE, 
PRIMITIVE - SCHEDULER, 

PROCESSOR7 
RCB BITDATA, 

RCB - CHARD AT , 

RCB - FIN D, 

RCE~FIX BuAT , 

RCB TRAHSEERQ, 

SEM - LIMIT, 

SEM L LIMIT, 

SYS PROCESSOR, 

IEREINATOR 
) CHARACTER ; 



* * * 



V 
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*CREATE_BCB = ’CHEAT R*; 

^CURRENT PROCESS = 'OURPROC' ; 

%DESIROY“RCE = 'DSTRY R • ; 

55DE VICE "DIRECTORY = 'XEV DIC’; 

%DEV L XIMIT = 'LDEVLIM'J 
%ERBOR~HANDL£fi = ' ERRHDLK ’ ; 

%DE V U^LIMIT = ' UDEVLIM 1 ; 

36FIIE X LIMIT = * LFILLIM' ; 

9&FIL£“MXNAGER = 1 FILEfci AN ' ; 

5SFIIE"“SPAC£ MANAGER = 1 FSPAMN ' ; 

XFILE“U LIMIT = ' UFILLIM’; 

%FI ND~ITI AME = 'FNDINAM * ; 

SSFIND”PINAME = * FPINAME ' ; 

^INITIALIZATION^ 'INITIZE'; 

%INI HATCH = * INITATR * ; 

SINPUT CCNTRCLLER= ' IN CONT': 

SSIN1ERRUPT HANDLER = T INTHDLR ' ; 

^operator System communicator = *cp comm* ; 

SSOUrPUI CONTROLLER = ’OUT COM 1 ; " 

35PCESTRX NT = •PCBINIT’; “ 

JSPCT L LIMIT = * LPCTLIM * ; 

%PCT — U — LIMIT = 1 UPCTLIM ' ; 

5SPRIEIII V E ACTIVATE ='ACTIVAT'; 

%PRIMITI VE — ALLOCATOR = 1 ALLOCTR 1 ; 

5SPRIKITI VE~ CREATE PCB = ’CREAT P«; 

S6PRIMITI V £~ DESTROY = * DESTROY * ; ~ 

%PRIMITI VE*~GETQUE = * GETQUER 1 * 

^PRIMITIVE - INTERRUPT DISENABLES = ’DISNABL* ; 
^PRIMITIVE INTER R OPT - ENABLER = ’ENABLE ' ; 

JoPRIMITI VE~PCBD AT A =~'PCB3TR«; 
%PRIMITIVE~PUIQUE= ’PUTQUE* ; 

XPRIMITI VE^RCBDAT A= ’ RCBHDLR ’ ; 

/6PRIMITI VE~RCE HANDLER = 'RCBHDLR*; 

^PRIMITIVE RCB^M ATCH= ’RCBMTCH ' ; 

2PRIMITI VE“RELEASE = 'RELEASE': 
55PRIMITIVE~RESTORESTATE = 'RESTATE 1 ; 
^PRIMITIVE” REQUEST = 'REQUEST'; 

^PRIMITIVE" SAVES TATE = ’SAVSTAT’; 

^PRIMITIVE SCHEDULER = ' SCHEDLR 1 ; 

5bPROCESSCR”= ' PRCSSR * ; 

5SRCE BITLATA = * BITDATA ' ; 

%RCB CHAREAT= ' CHARDAT ' ; 

%RCB^FIND='RCBFIND ' ; 

55RCB FIXED AT= ' EIXBEAT ' ; 

%RCB“TR ANSFERQ = ' TRANSQR ' ; 

%SEM~LIMIT = ' USEMLIM ' ; 

%SEM“L LIMIT = 'LSEMLIM'; 

/oSYS^PECCESSCR = 'SYSPSCR* ; 

XTEREINATCR = 'TERMNTR'; 



USEFUL DECLARATIONS NOT PROVIDED BY PL/I. 

INCLUDED BY l /oINCLUDE GENDEC; */ 

DCL TRUE EIT ( 1 ) STATIC INITIAL ( ' 1 *-B) ; 

DCL FALSE BI1(1) STATIC INITIAL (• 0 « B) ; 

XCECLARE EOREVER CHAR; 

5bFOREV£R= ’WHILE (TRUE)'; 
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/* **$ 4 **:** ******* ********* ***** 

PREPROCESSOR IMPLEMENTATION OF A CASE STA1MENT. 

"ENABLED" BY ^INCLUDE CASESTM. */ 

XDCI DO_ ACTION OF ENTRY RETURNS (CHAR) ; 

%DCI CASE ENTRY RETURNS (CHAR) ; 

%DCL END OF CASES ENTRY RETURNS (CHAR) ; 

XDCL ENDtASE CHAR; 

%DCL (El .all ,2NEST) FIXED; 

XDCL aK FIXED; 

XENECASE = ' GO TO END OF CASE STMT'; 

X2I1 = -1; ~ ~ 

3621 = -1; 

SaJNEST = 0; 



%DO_ACTIC N_OF : PEOC RETURNS (CHAR) ; 

2NEST = 2NEST + 1; 

RETURN (* BEGIN; GO TO'); 

%ENE ; 



56CASE: PECC RETURN S (CHAR) ; 

IF (2NEST = 1) THEN oil = 5)1 + 1; 

ELSE 211 = 211 + 1; 

RETURN ('CASELAB') ; 

36ENE; 



XEND__OF_C ASES : PEOC RETURNS (CHAR) ; 

IF (a NEST = 1) THEN DO; 2K = 21; 21 = -1; END; 

ELSE DO; 2K = 211; 2I1=-1; END; 

2NEST = 2 NEST -1; 

RETURN ('DCL CAS ELAB (2K) LABEL; 

END OF CASE STMT: END'); 

XEND; ” ~ 



y* ************************ ***** 

DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
WITH REQUEST AND RELEASE, AND AS VALUES PASSED IN 
MESSAGES . 



INCLUDED IN PROGRAM BY ^INCLUDE REQRELD; 



V 



DECLARE ( /* REQUEST - RELEASE INTERFACE 
ANYPROC, 

SEND JOB , 

SERROR, 

SFILECP, 

SIEUFI, 

SIN A ME, 

IlNtUT, 

SINTDEV, 

SINTRPT , 

SJCEQSP, 

SNEWJOb, 

SOBUFF, 

SOP R 10, 

S0U1PUT, 

ipuiour, 

SPRINT^, 

SRF ILEW , 

SSPACE, 

S W A I T 

) FIXED BINARY (15) EXTERNAL; 



V 
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DECLARE ( /* OPERATION IDENTIFIERS FOR FILE SPACE MANAGER */ 
$$ADD, /* ADD A DEVICE */ 

$$DELET, /* DELETE A DEVICE */ 

$$EXTNT, /* REQUEST FOR AN. EXTENT */ 

$$PERMF , /* PERMANENT TYPE FILE */ 

$$SP ACE , /* SPACE REQUESTED */ 

$$TFMPF /* TEMPORARY TYPE FILE */ 

} FIXED BINARY (15) EXTERNAL; 

DECLARE ( /* OPERATION IDENTIFIERS FOR FILE MANAGER */ 
$$CLOSF, /* CLOSE FILE */ 

5 $ DIRAD, /* DIRECTORY ADD */ 

SSDIRDL, /* DIRECTORY DELETE */ 

$$DIRRD, /* DIRECTORY READ */ 
l$D3TYF, /* DESTROY FILE */ 

SSEOF, /* END OF FILE */ 

$$ JNTPC , /* INTERFACE PROCESS IDENTIFIER */ 

$$OPENF , /* OPEN FILE */ 

I $GFCGM, /* OPERATOR SYSTEM COMMUNICATOR ID. */ 
$$REA D, /* READ OPERATION */ 

$$SFCMN, /* SPACE MANAGER IDENTIFIER */ 

$4> WRITE /* WRITE OPERATION */ 

) FIXED BINARY (15) EXTERNAL; 

DECIARE ( /* OPERATION IDENTIFIERS FOR OPERATOR SYS CCMNUN */ 
$$DCNE, 

I $F AIL, 

$$OPRTR, 

$$P ASS /* PASS TO OPERATOR */ 

) FIXED BINARY (15) EXTERNAL; 

DECLARE ( /* OPERATION IDENTIFIERS FOR OUTPUT CONTROLLER */ 
$$FILOP, 

$$ JCL , 

$$STOP f 

$$TEBM 

) FIXED BINARY (15* EXTERNAL; 

DCL MESSAGE POINTER STATIC ; 

DCL 1 MESSAGE BUFFER EASED (MESSAGE) , 

2 REIEASCD FIXED BINARY (15), 

2 ANSWER REQUEST BIT(1), 

2 MSG SEMAPHORE FIXED BINARY (15), 

2 BUFFER LOCATION POINTER, 

2 DATA FIELD, 

3 CHlR FIELD 1 CHAR (8) , 

3 CHAR - FIELD2 CHAR (8), 

3 CHAR - IIELD3 CHAR(8), 

3 CH AR^FIELD 4 CHAR (8), 

3 FIELD 1 FIXED EINARi (15) , 

3 EIELD2 FIXED BINARY (15) , 

3 EIELD3 FIXED BINARY (15), 

3 EIELD4 FIXED BINARY (15), 

3 FIELD5 FIXED El NA RY (15) , 

3 FIELD6 FIXED BINARY (15); 

DECIARE 1 OUTPUT BUFFER BASED (OBUFPTR) , 

2 OUT BUFF CHAR (132) ; 

DECIARE 1 INpDT BUFFER BASED (IBUFPTR) , 

2 IN EUFF CHAR (80) ; 
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/* ************* *********** ***** 

DECLARATIONS PGR IDENTIFIERS USED AS INTERFACE VARIABLES 

WITH PCB STRUCTURES. 

INCLUDED BY %INCLUED PCBDCL; */ 

DECLARE PRIMITIVE_PCBDATA GENERIC 

(DATCHAR ENTRY /* PUT OR GET CHARACTER TYPE DATA */ 
(FIXED BINARY./* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* aPUT OR aGET */ 

FIXED BINARY./* FIELD IDENTIFIER */ 

CHAR (8) ,/* DATA FIELD */ 

FIXED BINARY /* ERROR PARAMETER */) , 

EATFIX3 ENTRY /* PUT OR GET FIXED BINARY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT M) , /* SPUT OR aGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 

FIXED BINARY, /* DATA FIELD */ 

FIXED BINARY /* ERROR PEAMETER */) , 

BATPTR ENTRY /* PUT OR GET POINTER DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT f 1 ) , /* aPUT OS aGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
POINTER, /* DATA FIELD */ 

FIXED BINARY /* ERROR PEAMETER */) , 

DATEIT2 ENTRY /* BIT (2) ARRAY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT (1) , /* aPUT OR aGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
FIXED BINARY,/* DESIRED ARRAY 1C HER 

LIMIT */ 

FIXED BINARY,/* DESIRED ARRAY UPPER 

LIMIT */ 

(*) BIT (2) ,/*ARRAY DATA FIELD */ 

FIXED BINARY /* ERROR PEAMETER */) , 

DATARYS ENTRY /* FIXED BINARY (15) ARRAY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT f 1 ) , /* aPUT OR aGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
FIXED BINARY,/* DESIRED ARRAY LCWER 

LIMIT */ 

FIXED BINARY,/* DESIRED ARRAY UPPER 

LIMIT */ 

(*) FIXED BINARY,/* ARRAY DATA FIELD*/ 
FIXED BINARY /* ERROR PEAMETER */) , 

EATARYL ENTRY /* FIXED BINARY (31) ARRAY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* aPUT OR aGET */ 

FIXED BINARY ,/* FIELD IDENTIFIER */ 
(*) FIXED BINARY (31) ,/* DATA FIELD */ 
FIXED BINARY /* ERROR PEAMETER */) , 

DATEIT1 ENTRY /* BIT(1) DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* a PUT. OR aGET V 
FIXED BINARY,/* FIELD IDENTIFIER */ 
BIT M) , /* DATA FIELD */ 

FIXED BINARY /* ERROR PRAMETER */) ) ; 
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DECLARE ECB_IIM FIXED BINARY (15) EXTERNAL; 

DECLARE ( 

2B0EMNR , 

2BRMVEC, 

2CHILD, 

2CYCLE, 

2FSTAT, 

2FWCNTR, 

2LFTSIB , 

2MSGPTR, 

2NR PGS , 

2PA1ENT, 

2PE NR, 

2PRIRTY, 

2QUANTM, 

2RESVEC, 

2RGTSIB, 

2STATE, 

2STATUS, 

2S Y SPRO , 

2X NAME 

) FIXED BINARY (15) EXTERNAL; 

DECLARE ( 

2GET, 

aPlJT 

) EIT ( 1) EXTERNAL; 

DECLARE ( /* PROCESS STATUS IDENTIFIERS */ 

23BLKDR, /* WAITING FOR A RESOURCE */ 

32BLKDT/ /* BLOCKED AWAITING TIMER */ 

22REDYA , /* WAITING FOR A PROCESSOR */ 

23 RUN/ /* RUNNING */ 

23SUSPD /*' SUSPENDED */ 

) CHARACTER (U) EXTERNAL; 



tit##*#***##*##***#**#***###*** 

DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
WITH ECB HANDLER. 

INCLUDED BY %INCLUDE RC3DCL ; */ 

DECLARE P£IMI1IVE_RCBDATA GENERIC 

(RCB CHARDAT ENTRY /* PUT 01* GET CHARACTER DATA */ 
1FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 

NAME V 

BIT ( 1 ) » /* #PUT OR #GET */ 

FIXED BINARY/ /* FIELD IDENTIFIER */ 

CHAR ( 8) r /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT V ) r 

RCB FIXBDAT ENTRY /*PUT OR GET FIXED BINARY DATA */ 
“(FIXED BINARY/ /* RCB NUMBER = RESOURCE INTERNAL 

NAME V 

BIT ( 1 ) # /* #PUT OR #GET */ 

FIXED BINARY/ /* FIELD IDENTIFIER */ 

FIXED BINARY, /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT */ ) , 

RCB BITDATA ENTRY /* PUT OR GET BIT(1) DATA */ 

"(FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 

NAME */ 

BIT ( 1 ) , /* #PUT OR #GET */ 

FIXED BINARY, /* FIELD IDENTIFIER */ 

BIT ( 1 ) , /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT */ )); 
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DECLARE ( /* FIELD IDENTIFIERS ASSOCIATED WITH 
PRIMITIVE_RCBDATA */ 

/♦♦♦FIELD | ASSOCIATED VALUES PASSED OR RETURNED 

IDENTIFIER | IN THE DATA ARGUMENT ♦/ 

#ASSGND, /♦ VALID RCB NUMBER CHECK ♦/ 

£ CNT SZ, /♦ COUNTER OR SIZE - FIXED BINARY ♦/ 

iCRATR, /* PINAME OF CREATOR - FIXED BINARY ♦/ 
IDINAME, /♦ DEVICE I NAME (FILE LOCATION) - F.B. ♦/ 
#DSIAT, /♦ DEVICE STATUS ££GO OR £ # HOLD -BIT (1) */ 
£L QUE # /♦ RETURNS EMPTY OR NOT EMPTY - BIT (l) */ 

MOTILE, /♦ OPEN FILE STATUS - ##NOAVL / ##AVAIL r 
##READ , OR if # WRITE: DEVICE AVAILABLE 

FOR tf #T2MPF , #f PERdF , CR #TOEPF FILES 
FIXED BINARY ♦/ 

#OWNER, /* PINAME OF OWNER - FIXED BINARY ♦/ 

# PC TRAM , /* EXTERNAL NAME OS PACK , CELL OR TAPE 

- FILE LOCATION - CHAR (8) ♦/ 

#fi CUE. /♦ RETURNS EMPTY OR NOT EMPTY - BIT(1) ♦/ 
£S~ OR P, /* SHARED OR PRIVATE ##SHRD OR ##PRIV 

- BIT ( 1 ) ♦/ 

£TFILE, /* FILE TYPE - #TEMPF OR ##PESMF F.B.*/ 
#XNAME /* RES. EXTERNAL NAME - CHAR(8) */ 

) FIXED BINARY EXTERNAL; 

DECLARE ( /* RCB TYPES */ 

#DE VICE / 

SFILE , 

#PCI / 

#SEMFOR 

) FIXED BINARY EXTERNAL; 

DECLARE ( /* OPERATIONS FOR RCB FIND */ 

#FNDOP 1 , 

£FNDOP2, 

#FNEOP3, 

£FNBOP4 r 
#FNDOP5 

) FIXED BINARY EXTERNAL; 

DECLARE ( /* STATUS IDENTIFICATION FOR QUEUED FILS OPERATIONS 

AND FILE USE STATUS IDENTIFIERS */ 

## A V AIL , /* FILE IS NOT CURRENTLY OPEN */ 

##NCAVL , /* FILE IS NOT CURRENTLY ACTIVE */ 

##PERMF, /* PERMANENT FILE */ 

##PRIV, /* PRIVATE FILE */ 

##READ, /* READ OPERATION */ 

£#READA, /* READ - ANSWER REQUIRED - STATUS => 

PROCESS* FILES HAVE BEEN SACRIFICED */ 
##READS, /* READ SACSIEICE - NO ANSWER REQ * D . */ 

£#SBRB, /* SHARED FILE */ 

iUlEKPF, /* TEMPORARY FILE */ 

#£TGRPF , /* TEMPORARY OR PERMANENT FILE */ 

# # W RITE, /* WRITE OPERATION */ 

##KRI1A, /* WRITE ANSWER REQUIRED - SACRIFICED */ 

£#WEITH, /* WRITE HOLD - AWAITING PERMISSION */ 

## WRITS /* WRITE SACRIFICE - NO ANSWER REQ * E . */ 

) FIXED BINARY EXTERN AL ; 

DECLARE ( /* STATUS OF PROCESS W.R.T. FILE OPERATIONS */ 

# #R EADR t /* ONLY READING FROM SHARED FILES */ 

# £ S A C R , /* SACRIFICED */ 

£# WRITE /* WRITING INTO SHARED FILES - NOT 

SACRIFICED V 

) FIXED BINARY EXTERNAL; 
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DECLARE ( /* READY ACTIVE QUEUE IDENTIFIERS 
•RED YA 

) FIXED UNARY (15) EXTERNAL, 

(#0 S, 

#USE 3 

) EIT ( 1) EXTERNAL; 



V 



DECLARE ( /* RESOURCE VECTOR STATUS VARIABLES */ 

##ACCES, /* ACCESS ALLOWED */ 

## ACQRD, /* PROCESS HAS ACQUIRED THIS DEVICE */ 
##NOACC, /* ACCESS NOT ALLOWED */ 

##S ACRE /* PROCESS HAS BEEN SACRIFICED W.R.l. 

THIS DEVICE - MUST REASSIGN */ 

) EIT (2) EXTERNAL; 



DECLARE ( /* QUEUE STATUS, QUEUE IDENTIFIER AND DEVICE 

STATUS VARIABLES */ 

H#CIOSE, 

##G0, 

# #HCLD, 

##OEEN, 

#GET , 

#PU1, 

#LEFT , 

IRIGHT 

) BIX { 1 ) EXTERNAL; 



DECLARE ( 

DEV L LIMIT, 
DEV - U - LIMIT, 

FILE X LIMIT, 

FILE - U"”* LIMIT, . 

PCT X LIMIT. 

FCT - U — LI MIT ^ 

SEM” LIMIT , 

c F T I TMTT 

) FIXED - BIN ARY EXTERNAL; 



DECLARATION AND PROCEDURE CALL NECESSARY TO OBTAIN A 
MESSAGE EUFFER AND KNOWLEDGE OF A PROCESS* OWN 
INTERN AX NAME. 

INCLUDED EY %INCLUDE RRMSG ; */ 

DECLARE MYNAME FIXED BINARY (15) STATIC INIT (0) ; 

CALL PRIMITI VE_PCBDATA (MYNA ME , a)GET,a>MSGPIR , MESSAGE, ERROR) ; 



DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
BY OPERATING SYSTEM PRIMITIVES AND PROCESSES. 



INCLUDED BY ^INCLUDE OSDCL; */ 

DCL CURRFNT^PROCESS (4) FIXED BINARY EXTERNAL; 

DECLARE ( 

ALL INT, 

NUMBIN'!, 

NUMBCPU, 

PROCESSOR, 

SYS PROCESSOR 
) FIXIE BINARY EXTERNAL; 

DECLARE SAVEINTS (16) BIT(1) STATIC; 
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***************************** 
DECLARATIONS FOR PROCESSOR REGISTERS, FOR SIMULATION. 
INCLUDED EY S&INCLUDE REG5TRS ; */ 

DECLARE CFUREGS (4 , 10) FIXED BINARY (31) EXTERNAL; 

/* ************************ * * * * * 

DECLARATIONS FOR AH ARRAY TO SIMULATE ENABLING AN 
INTERRUPT. 

INCLUDED EY & INCLUDE INTACTV ; */ 

DECLARE INTBUPT (16) BIT(1) EXTERNAL; 

/* ***************************** 

DECLARATION, FOR SIMULATION PURPOSES, OF THE INTERRUPT 
LOCATIONS. 

INCLUDED BY ^INCLUDE INTSET; */ 

DECLARE IN1RSET (16) BIT (1) EXTERNAL; 
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MODULE SPECIFICATION 



NAM I: ERROR HAND LER TYPE: PROCESS 

PARAMETERS 

INP UT OUTPUT TYP E _ CON TENT S 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 



NAME PARAM ETE RS 

Request Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Release Process I-Name, 
Semaphore, 

Message Pointer, 
Error Parameter 

PCBData Process I-Name, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



.PURPOSE 

a) $Error - Semaphore used to 
identify messages for this 
process. 

b) $Obuff - Semaphore used to 
obtain an output buffer. 

a) $0pr_I0 - Semaphore used to 
pass a message via the Op- 
erator System Communicator 
to the Computer Operator. 

Generic entry point to Process 

Control BIock module used to 

enter or obtain data. 



EXTERNAL CAIIS MADE BY OTHER MODULES 
NAME. PU RP OSE 

Not applicable for processes. 



DATA STRUCTURES USED 
NAME FIELD TYPE 



Message Based 

Buffer 



Releasor Integer 



Answer- Bit(1) 
Reguest 

Message- Integer 
Semaphore 

Buffer- Pointer 
Location 

Fieldl Integer 



Field2 Integer 

Field3-6 Integer 

Char- Char(8) 

Fieldl-4 



PURPOSE/VALUES ; 

Dynamically allocated, pointer 
qualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
required. 

Semaphore to be used in the 
answer. 

Qualified I/O buffer contain- 
ing message to/lrom operator. 

Internal name of process which 
caused the error. 

The error condition code. 

Not used. 

Not used. 
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MODULE D E SCR IFTION 

Net inplemented - Dummy module used to accept error messages 
and to pass a decoded message to the computer operator. 
Actual implementation is dependent on the hardware and the 
detection or correction techniques employed. 
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MOD ULE IMPLEMENTATION 



XINCLUDE NAMCHGR; /***** ERROR HANDLER ♦****/ 

(CHECK (ERROR)); 

ERROR_HANDLER : PROC OPTIONS (MAIN) ; 

XINCLUDE SIHULTR; 

SIM_START (IROCESS_ERROR_HANDLER) 

XINCLUDE GENCEC; 

XINCLUDE PCEICL ; 

XINCLUDE CASESTM; 

XINCLUDE RECRELD; 

ON CHECK (ERROR) 

BEG IN; 

IE (ERROR -•= 0) THEN DO: 

/* NON RECOVERABLE CONDITION: ERROR DETECTED 
IN ERROR HANDLER */ 

STOP; 

END; 

END; 

XINCLUDE RRMSG; 

DCL ERROR FIXED BINARY INIT (0) ; 

DCL HAREWARE ERROR BIT(1) ; 

DCL (FINAME, E"RRCOD) FIXED BINARY STATIC; 

DCL (PNAME ,RNAME) CHAR (8) STATIC; 

DCL INDX FIXED BINARY (15,0) ; 

DCL CBPTR POINTER STATIC; 

DCL ECE ERR CODES (101 : 120) CHAR (40) STATIC 

INITIAL! 

'INVALID RCB TYPE SPECIFIED IN CREATE RCB ' , 
'SYSTEM CONDITION; ALL RCB SPACE IN USE', 
'INVALID RESOURCE INTERNAL NAME SPECIFIED', 
•ATTEMPTED ACCESS TO AN UNALLOCATED RCE», 
'ACCESSED EMPTY QUEUE OR UNOPENED FILE' 
'READ/WRITE OPERATION ON AN UNOPENED FILE*, 
'RESTRICTED ACCESS: WRITE INTO QUE-HEADER', 
'UNIDENTIFIED OPERATION IN RCB FINE', 
'UNAUTHORIZED ACCESS TO A RESOURCE * , 
•INVALID FILE OPERATION SPECIFIED', 

« UNIDENTIFIED RESOURCE EXTERNAL NAME', 

' UN ATHGRIZED WRITE ACCESS TO SHARED FILE'. 
'DEVICE IN HOLD STATUS: FILE UNACCESSIBLE* , 
•PERMANENT FILE CREATION UNAUTHORIZED* 
'INSUFFICIENT SPACE FOR PERMANENT FILE*, 
•WRITE OPERATION TO FILE IN READ STATUS', 
'UNAUTHORIZED RESOURCE DESTROY ATTEMPTED', 
'RESOURCE ACCESSED HAS BEEN DESTROYED 1 , 
•ATTEMPTED TO MODIFY RCB ASSIGNED FIELD 1 , 

i i 

) ; 

DCL FCE ERR CODES (201 : 206) CHAR (40) STATIC 
INITIAL^ 

•INVALID PROCESS INTERNAL NAME SPECIFIED', 
•ATTEMPTED ACCESS TO UNALLOCATED PCE* 
•INVALID PC B FIELD REFERENCE SPECIFIED' , 
•INVALID OPERATION ON PCE FIELD ATTEMPTED', 
•SPaCE NOT AVAILABLE FOR A NEW PCE' 

•PROCESS NOT FOUND WITH SPECIFIED NAME* 

) ; 
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DCL EBCCESS ERR CODES (301 : 310) CHAR (40) STA1IC 
INITIAL^ 

* INVALID OP SYS COMM ACTION IDENTIEIEfi* , 

i i 

' ' UNIDENTIFIED RESOURCE X NAME IN MSG EUFF* 

* UNIDENTIFIED MESSAGE TO“INPUT CONTROLLER* 
•INVALID ACTION IDENTIFIER TO OUTPUT CQNT*, 
•INVALID ACTION IDENTIFIER TO OUTPUT CONT' f 
•INVALID SEMAPHORE PASSED TO REL/REQ ERIM* 

* UNAUTHORIZED USE OF MESSAGE SEMAPHORE* 

ii 

i f 



DC FOREVER; 

CALL PRIMITIVE REQUEST ( ANYPRCC,$OBUFF, MESSAGE, ERROR) ; 
OEPTE = EUEEER_LOCATION ; 

SIM_IN1ERRUPT_PT 

CALI PRIMITIVE REQUEST (ANYPROC , $ERROR, MESS AGE , 

ERROR) ; 



SIM_INIERRUPT_PT 

CALL ERROR INTERPRETER; 

IF HARDWARE ERROR THEN CALL HDKR ERR HNDLR ; 

ELSE CALX SOFTWARE ERR HNDLR;” 

END; 

SIM_END 

ERRCR_INTERPRETER: PROC; 

/* IDENTIFICATION OF THE ERROR TYPE AND CAUSE 

IS DETERMINED IN THIS SUBROUTINE; I.E.. TABLE 
LOOKUP. V 

HAR E WARE ERROR = FALSE; 

RETURN; 

END ERROR_INT ERPRETER ; 

HD W E_ERR HNDLR: PROC; 

/* EXTERMINATION OF RECOVER ABLE/ NON-RECOVER ABIE 
AND THE APPROPRIATE ACTION INCLUDING A MESSAGE 
TO THE OPERATOR , IF NECESSARY, IS ACCOMPLISHED 

# / 

RETURN; 

END HD WE_ERR_ HNDLR; 
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SOFTWA BF_ERR_HNDLR: PROC ; 

/* APPROPRIATE ACTION TO CORRECT THE ERROR OR 
PREVENT FURTHER ERROR IS TAKEN. FOR EXAMPLE. A 
USER PROCESS ATTEMPTING TO WRITE INTO A RESTRICTED 
FILE MIGHT BE TERMINATED. ***/ 

/*** IDENTIFY PROCESS AND ERROR CODE ***/ 

IF (FIELD 1 = 0) THEN PINAME = RELEASOR; 

ELSE PINAME =FIELD 1 ; 

ERRCOD = FIELD2; 

/*** SET UP MESSAGE EOR THE OPERATOR ***/ 

CALL PRIMITIVE PCBDATA (PI NAME ,a,GET , cDXNAME , P NA ME , 

ERROR) ; 

CBUEPTR, BUFFER LOCATION = OBPTR ; 

INDX = ERRCOD /HOG: 

DO ACTION OF CASE (INDX) : 

ClSE (1) /* RESOURCE ERROR CODES */ 

CBUFPTR -> OUT BUFF = FNAME | j 1 * | I 

RCE ERR CODES (ERRCOD) ; 

ENECASE; 

CASE (2): /* PROCESS ERROR CODES V 

CBUFPTR -> OUT 5UFF = PNAME | | ' ' I j 

PCB ERR CODES (ERRCOD) 

ENDCASE; 

CASE (3) : /* PROCESS ERROR CODES */ 

CBUFPTR -> OUT BUFF = PNAME || 1 • l| 

PROCESS ERR CODES (ER ECOD) 

FNECASE; 

END OF CASES; 

MS G~ SEMAP HO RE = $OBUFF; 

ANSWER REQUEST = TRUE; 

FIIID 1 — = $$2 ASS ; 

/*** RELEASE MESSAGE TO THE OPERATOR ***/ 

CALL PRIMITIVE RELEASE (ANYPROC, $OPR IO,MESSAG£, 

ERROR) ; 

/* ADD CODE TO TERMINATE PROCESS CAUSING THE 

ERROR, IF NECESSARY. */ 

FETURN; 

END SOFT W ARE_ERR_HNDLR ; 

END EEROE_H ANDLER ; 
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MODULE SPECIFICATION 



NAME: OPERA TOR SY STEM COMMUNICATOR TYPE: PROCESS 

PARAMETERS 

INPU T OUTP UT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS- PURPOSE 



Request Process 1-Name, 
Semaphore, 
Message Pointer, 
Error parameter 



Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Find- Process X-Name, 

Piname Process I-Name, 

Error Parameter 



a) $Opr 10 - Semaphore used to 
identify messages for this 
process. 

b) 4>0buff - Semaphore used to 
obtain an output buffer. 

a) $Output - Semaphore used to 
send messages to the Output 
Controller . 

b) $Input - Semaphore used to 
send messages to the Input 
Controller . 

c) $Fileop - Semaphore used to 
send messages to the File 
Manager. 

d) $Error - Semaphore used to 
send messages to the rrror 
Handler. 

e) SNai-t - General messaqe 
class identifier. 

f) $Ibuff - Semaphore used to 
free input buffers. 

Entry point to PCB Handler 
used to obtain the internal 
name of a process identified 
by external name. 



EXTERN A1 CA11S MADE BY OTHER MODULES 
NAME PURPOSE 

Not applicable for processes. 
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DATA STRUCTURES USED 

NAME FIELD TYPE PURPOS E/V ALUES 

Message — - Based Dynamically allocated, pointer 

Buffer qualified structure used for 

passing messages. 



Releasor 


Integer 


Internal name cf process 
releasing a message. 


Answer- 

Eeguest 


Bit (1) 


Boolean indicating if answer 
required. 


Message- 
Seraapnor e 


Integer 


Semaphore to be used in the 
answer. 


Buffer- 

Location 


Pointer 


Qualified I/O buffer contain- 
ing message tc/frora operator. 


Fieldl 


Integer 


Action identifiers: $$PASS for 
messages to other processes or 
the operator; $4>OPCOM for mes- 
sages to this process. 


Field2 


Integer 


Value eguals $JOPRTR then 
message from operator; $$DONE 
or S$r AIL indicates task com- 
pletion code for messages sent 
to other processes. 


Field3-6 


Integer 


Not used. 


Char- 

Fieldl 


Char (8) 


Resource external name in 
answers to task messages. 


Char- 

Field2-4 


Char (8) 


Not used. 



MOD ULE DESCRIPTION 

A simplistic implementation has been completed to reify the 
concept cf using a focal point for system-operator communi- 
cations. The exact hardware configuration; a repertoire of 
instructions; and a complete specif ica tion of functions to 
be performed are essential for a complete implementation. At 
present, the process passes messages ana initiates action 
messages upon receipt of instructions from the operator. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGB ; /***** OPERATOR SYSTEM COMMUNICATOR*/ 

(CHECK (ERROR) ) : 

OPERATOR_SYSTEfi_COMMUNICATOR : PROC OPTIONS (MAIN); 



^INCLUDE SIMULTF; 

SIM_STABT (PROCES S_OPERATOR_S YSTEM_COMMUNICATOR) 

/* ^a******#**:! fr**#*#*:***** * * * * * 

THIS MODULE SERVES AS THE FOCAL POINT FOR SYSTEM 10 
OPERATOR AND OPERATOR TO SYSTEM MESSAGES. IT INTER- 
PRETS MESSAGES AND DETERMINES THE ACTION TO 3E TAKEN. 

IN PARTICULAR, IT ISSUES ACTION MESSAGES TO THE INPUT 
CONTROLLER. OUTPUT CONTROLLER, AND FILE MANAGER TO ADD 
OR DELETE A DEVICE AND ITS ASSOCIATED INTERFACE PROCESS 
AS WELL AS PASSING MESSAGES FROM THE SYSTEM TO THE 
OPERATOR. ***/ 

^INCLUDE GENDEC; 

S5INCLUDE CAS E STM ; 

^INCLUDE FCBECL; 

^INCLUDE BEQRELD; 



ON CHECK 
BEGIN 
IF 



END; 



(ERROR) 

(ERROR -.= 0) THEN DO; 

(NOCHECK (ERROR)): 

BEGIN; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE = 0; 

FIELD 1 = RELEASOR; 

FIZLD2 - ERROR; 

MSG SEMAPHORE = 0; 

CALX PRIMITIVE RELEASE (AN YPROC,$ERROR, 

MESSAGE, ERROR) ; 

ERROR = 0; 

END; 

GO TO START; 

END; 



5SINCLUDE RRMSG ; 



DCL ERROR FIXED BINARY STATIC INIT (0) ; 

DCL EUEFER USED BIT(1) STATIC INIT('I'B); 

DCL EUEFER^POINTER POINTER STATIC; 

CALL COMMUNICATIONS INITIALIZER; 

START: 

DC FOREVER; 

IF BUFFER USED THEN DO; 

CALL PRIMITIVE_REQUEST (ANY PROC , $OBUF F , MESSAGE, ERROR) ; 
SIM INIERRUPT PT 



EUEFER_USED = FALSE; 

EUFFEB POINTER = BUFFER LOCATION; 

END; 

CALL PRIMITI VE^REQ UESX (ANYPRCC,$OPR_ 10, MESSAGE, ERROR) ; 
SIM INTERRUPT PT 



79 




CALI MESSAGE INTERPRETER; 
DO_ACTION_OF~CASE (I) ; 



CASE ( 1 ) z 

/* PASS MESSAGE TO OPERATOR */ 

FIFID4 = RELEASOR; 

CALL PRIMITIVE RELEASE (ANYPROC, $0 UTPUT , MESSAGE, 

ERROR) ; 

ENICASE; 



CASE ( 2) • 

/* MESSAGE PROM OPERATOR OR SYSTEM */ 

DCL (START! PT,MSG LEN,PINAME) FIXED BINARY (15,0); 
DCL MSG CODE CHAR74) STATIC; 

DCL (MSO ITEM 1 , MSG IT EM 2) CHAR (8) STATIC; 

DCL PCODE CHAR(I) STATIC; 

DCL MSG SEM FIXED BINARY STATIC INITIAL (0) ; 

DCL SYS MSG CHAR (40) : 

DCL ACTION FIXED BINARY STATIC INITIAL (0} ; 

IF (FIELD2 = $SOPRTR) THEN DO; /* MSG FROM OPERATOR */ 
/*** INTERPRET MESSAGE IN INPUT BUFFER ***/ 
START PT = 3; 

MSG LIN = 4; 

IBUTPTR = BUFFER LOCATION; 

MSG CODE = SUBSTE (IBUFPTR -> IN BUFF, 

START PT , MSG LEN) ; 

START PT = 7; 

MSG LEN = 8; 

MSG^ITEMI = SUBSTR (IBUFPTR -> IN BUFF, 

START PT , MSG TEN) ; 

IF (MSG CODE = 'ADD ') TEEN ACTION = $$ADD ; 

£LSE~~IF (MSG CODE = 'DEL ') THEN ACTIO N = $$EELET ; 
ELSE DOT /* MESSAGE TO SYSTEM PROCESS */; 
CALL FIND PINAME (MSG I IE Ml , PI NAM E , 

ERROR) ; 

FIELD 1 = $$OPCOM: 

CALL PRIMITIVE RELEASE (PINAHE ,$ W AIT, 

MESSAGE, ERROR) ; 



END; 

IF (ACTION -.= 0) THEN DO; 

/*** IDENTIFY RESOURCE TYPE ***/ 

START PT = 1 ; 

MSG LEN = 1; 

f CODE = SUBSTR (MSG ITEM1, START FT, MSG LEN); 

IF (PCODE = » I ' ) THEN MSG SEM = $INPUT; 

ELSE IF (PCODE = 'O') THEN MSG SEM = $OUTPUT; 
ELSE IF (PCQDE=* F ' ) THEN DO; 

START PT = 15; MSG LEN = 8; 

MSG ITEM2=SUBSTR (I3UFPTR -> 

IN B UFF , START PI, MSG LEN); 
MSG SEM = 3FILEOP; 

END ; 

ELSE DO; /* UNIDENTIFIED RESOURCE 
EXTERNAL NAME. */ 

CALL PRIMITIVE RELEAS S ( RELEASOR , $1 E UFF , 

MESSAGE, ERROR) ; 

BUFFER LOCATION, OBUFPTR = EUFFER POINTER; 
OBUFPTH -> OUT BUFF = MSG CODE |J 

MSG ITEM1 II • IN V ALID RESOURCE NAME'; 
FIELD! = $ SOPCOM ; 

FIELD2 = 33PASS; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE = 0; 

FIELD3, FIELD4, FIELD5, FIELD6 = 0; 

CHAR FIELD 1 ,CH AR FIEL D2 , CH AR FIELD3, 
“CHAR FIELD4“= " ; 

CALL PRIMITIVE RELE AS E ( A N Y PRGC, $OUT P UI , 

MESSAGE, ERROR) ; 



BUFFER USED = TRUE; 



END; 
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IF ((ACTION -.= 0) & (MSG SEM ->= 0)) THEN DO; 

/*** SEND TASK MESSAGE TO PROCESS CONCERNED ***/ 
ANSWER REQUEST = TRUE; 

MSG SEMAPHORE = $OPR 10; 

FIELD 1 = $$OPCOM ; 

FIELD2 = ACTION; 

CHAR FIELD 1 = MSG ITEM 1 : 

IF (PCODE = 1 F * ) THEN CHAR FIELD2 = MSG ITEM2; 
CALL PRIMITIVE RELEASE (ANYPROC , MSG SEM MESSAGE, 

ERROR) ; 



END; 

END: 

ELSE DO; /* MESSAGE ANSWER FROM SYSTEM 

/*** RELEASE MESSAGE TO THE OPERATOR 
ACTION = FIELD2; 



END 



PROCESS 
* * 



V 



If 



(ACTION = SSDONE) 
SYS MSG = * 



, THEN 
kCTICN 



ON 



COMPLETED TOR • ; 

ELSE SYS“MSG = ' UNABLE TO PERFORM ACTION 
BUFFER LOCATION, 03UFPTR = BUFFER POINTER; 
0BUFPT2 -> OUT BUFF = SYS MSG II" 

CHAR FIELD 1 i 1 CHAR FIELD2; 

FIELD 1 = SSOPCOM; 

FIELD2 = $$PASS ; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE =0; 

FIFXD3, FIELD4,FIELD5, FIELD6 = 0; 

CHAR FI ELD 1 , CHAR FIEL D2 ,CHAR FIELD3 , 

CHAR FIELD4 = ' 1 ; 

CALL PRIMITIVE RELEASE (ANYPROC, $0UTPUT, MESS AGE, 

ERROR) ; 

EUFFER USED = TRUE; 

END; - 

EN ICASe ; 



END_CF_CASES; 

END; 

SIM END 



MESSAGF_ INTERPRETER: PROC; 



/* INTERPRET MESSAGE TO DETERMINE 
SET THE CASE STATEMENT INDEX 



REQUIRED ACTION AND 
* 



IF ( FIELD 1 = 4> $P ASS) THEN 1=1: 

ELSE IF (FIELD 1 = $$OPCOM) THEN 1 = 2; 
ELSE ERROR = 301; 

END MESSAGE INTERPRETER; 



COMM UNICATIONS_ INITIALIZER: PROC; 



/* ISSUE REQUESTS AND RELEASES TO INITIALIZE THE 
SYSTEM INPUT / OUTPUT CONFIGURATION 



V 



END COMMUN ICAIIG NS_INITI ALIZER ; 



END OPEKATOR_SYSTEM_COMMUNICATOR; 
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MODULE SPECIFICATION 

NAME: INPUT CONT ROLLED TYPE: PROCESS 

PARAMETERS 

INPUT OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PAR AMETE RS PURPOSE 



Reguest Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



a) $Input - Semaphore used to 
identify messages for this 
process. 



Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Device 

Directory 



Resource X- 
Access Iden 
Process X-N 
Page Table 
Page Table 
Priority . 
Interrupt N 
Located- Boo 



Name, 
tif ier , 
ame. 
Length , 
Vector , 

umber, 

lean 



a) $Error - Semaphore used to 
send a message to Error 
Handler. 

b) $Intdev - Semaphore used to 
send a message to a newly 
created interface process 
to identify a device inter- 
nal name. 

c) $Ibuff - Semaphore used to 
release input buffers to an 
interface process. 

d) $0pr_I0 - Semaphore used to 
send a message‘to Operator 
System Communicator when 
passing messages from the 
operator or replying to a 
message from Op-Sys-Ccmm. 

This module is invoked to get 
data which identifies a device 
interface orocess and which is 
required to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 



PCBData 



P 


rocess 


I- 


N 


a 


me. 


p 


u t/ 


Get 


Id 


e 


n 


tif i 


F 


lel 


d Id 


en 


t 


1 


tier 


D 


ata 


Par 


am 


e 


t 


er. 


Error Pa 


ra 


m 


e 


ter 



Generic entry point to PCB 
Structures module to enter or 
obtain data. 



PCBEata Process I-Name, 

Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 



RCBData 



Resource I-Naroe, Generic entry point to RCB 
Put/Get Identifier, Handler module to enter cr get 
Field Identifier, data concerning a resource. 
Data Parameter, 

Error Parameter 
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RCBPUTQ 



Resource I-Name, 
Left/fiight Queue, 
Process I-Name, 
Data Parameter, 
Priority, 

Message pointer. 
Data parameter. 
Error Parameter 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 



Find Resource Type, 

I-Name Resourse X-Name, 

Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 



Interrupt Interrupt 
Enabler Interrupt 
Vector 



Number, 

Save- 



Interrupt 

Disabler 



Interrupt Number, 
Interrupt Save- 
Vector 



This module is invoked tc en- 
able a specific interrupt or 
enaJrle all interrupts disabled 
by this process. 

This module is invoked tc dis- 
able a specific or 
ail interrupts and saving the 
status of the interrupts in 
a save-vector for enabling. 



Create 

RCB 



Resource 
Resource 
Resource 
Sz-Cntr 
Access I 
PCi Name 
De v/Int 
File Des 
File Des 
Resource 
Error Pa 



Type, 
X-Name, 
Owner . 
Parameter, 
dentif ier , 

r 

Identifier , 
criptor, 
criptor, 
I-Name, 
rameter 



Entry point to 
used to create 
type specified; 
tor data in the 
RCB fields; and 
resource intern 
all fields are 
type of resourc 



RCB Handler 
an RCB of the 
enter descrip 
appropriate 
return the 
al name. Not 
used by each 
e. 



GETPCB Parent I-Name, 
Rgt-Sib I-Name, 
Process X-Name, 
Priority , 

System process ID, 
init State Vector, 
Process I-Name, 
Cyclic Process Id, 
Error Parameter 



Entry point to PCB Structures 
used to create a PCB for a 
process; enter data in the PCB 
fields; and return the process 
internal name. 



EXTERNAL CALLS HADE BY OTHER MODULES 
NAME PURPOSE 



Not applicable for processes 




DAI A STRUCTURES USED 
NAM E FIELD TY PE 

Message Based 

Buffer 



Releasor Integer 



Answer- Bit(1) 
Reguest 

Message- Integer 
Semaphore 

Buffer^ Pointer 
Location 

Fieldl Integer 



Field2 Integer 



Field3-6 Integer 

Char- Char (8) 

Fieldl 

Char- Char (8) 

Field2-4 



PURPOSE/ VALUES , 

Dynamically allocated, pointer 
qualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
required . 

Semaphore to be used in the 
answer. 

Qualified I/O buffer contain- 
ing message to/from operator. 

a) $$Opcom - Messae from Oper- 
ator System Communicator. 

b) $$JCL - Message frqm inter- 
face process. 

a) i>$ADD - Task identifier to 
create an interface process 
and device RCB. 

Not used. 

Identifies external name of 
the device to create/destroy. 

Not used. 



MODU LE D £ £C5I PTION 

Partially implemented process performing such functions as 
creating a device and its associated interface process; 
passing messages from the operator to the Operator System 
Communicator, etc. Impleraemtation limited until the hardware 
environment, JCL code, etc. are defined. 
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MODULE IMPLEMENTATION 



SSINCLUDE NAMCHGR; /***** INPUT CONTROLLER *****/ 

(CHECK (ERROR)): 

INPUT_CCNTRCILEfi: PROC OPTIONS (MAIN) ; 

^INCLUDE 5IMULTR; 

SIM_ST ART (PROCESS_INPUT_CONTROLLER) 

********************** * * * # * 
THIS MODULE HAS BEEN IMPLEMENTED TO CENTRALIZE ANL 
FACILITATE THE "INPUT " OPERATIONS FROM VARIOUS DEVICES. 
IT PERFORMS SUCH FUNCTIONS AS CREATING AND DESTROYING 
INTERFACE PROCESSES AND DEVICE RCB'S; ENTERING A JOE * S 
JCL IN THE JOB QUEUE; RELEASING MESSAGES TO THE INI- 
TIATOR WHEN A JOB IS READY FOR CREATION; AND PASSING 
MESSAGES TO THE OPERATOR SYSTEM COMMUNICATOR. ***/ 

56INCLUDE GENDEC; 

^INCLUDE hFQEELD ; 

^INCLUDE PCBECL; 

^INCLUDE RCEDCL; 

^INCLUDE CASESTM; 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR -» = 0) THEN DO; 

(NOCHECK (ERROR)): 

EEGIN ; 

FIELD 1 = RELEASOR; 

FIELD2 = ERROR; 

MSG SEMAPHORE = 0; 

ANSTIER REQUEST = FALSE; 

CALL PRIMITIVE RELEASE (A NYPRCC , $ERROR , MESSAGE, 
^ ERROR) ; 

ERROR =0; 

END; 

GO TO START; 



^INCLUDE RRMSG; 



ECL ERROR FIXED BINARY STATIC INIT (0) ; 

DCL (S OR P / NRPGS / PRI r PINAME / RINAME # CHILD / INTRPTNE) 
FIXED BINARY; 

DCL FOUND BIT (1) ; 

DCL ( PX N A ME , R X N A M E) CHAR (8) STATIC; 

DCL PGT AB VEC ( 1 ) FIXED BINARY; 

DCL STATE VEC (10) FIXED BINARY (31,0); 

DCL RES VEC (S EM L LIMIT : PCT U LIMIT) BIT (2) ; 

DCL NRDl VlCiis FIXED BINARY STlTlC INIT(O); 

DCL TEMP PTR POINTER; 

DCL DUMM7 (16) BIT (1) : 

DCL II FIXED BINARY (15) STATIC INITM), 

10 FIXED BINARY M 5 ) STATIC INIT(O), 

NUIP POINTER STATIC ; 

NULE = NULL; 
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START* DC FOREVER* 

CALI PRIMITIVE^. REQUEST (ANYPROC, $INPUT , MESSAGE, ERROR) ; 
SIM INTERRUPT PT 



CALI MESSAGE 
DO ACTION OF 
CASE (1) : 7* MESSAGE 

/*** 



/ 



INTERPRETER; 

C ASE ( I) * 

FROM OPERATOR-SYSTEM COMMUNICATOR 
TO ADD AN INPUT DEVICE */ 

GET DATA FROM THE DIRECTORY REQUIRED TO 
CREATE AN INTERFACE PROCESS AND DEVICE 
RCB. ***/ 

CALL DEVICE DIRECTORY (CHAR FIELD1,S OR P, 

PXNAME,NRPGS,PGTABVEC,PRI r INIRPTNR7FCUND) ; 
IF (FOUND = TRUE) THEN DO; 

RXNAME = CHAR FIELD 1 ; 

CALL PRIMITIVE PCBDATA (MYNAKE,a)GET ,a)CHILD, 

CHILD, ERROR) ; 

STATE VEC ( 1 ) = PGTABVEC (1) ; 

STATE”VEC(2) =1; /* IC REGISTER */ 

/*** CHEATS PCB FOR INTERFACE PROCESS ***/ 

CALL GETPCB (MYN AME, CHILD , PXNAME, PRI , T RUE, 
STATE VEC, PINAME, 10, ERROR) ; 

/*** RESET FAMILY LINKAGE. ***/ 

IF (CHILD 0) THEN 

CALL PRIMITIVE PCBDATA (CHILD ,a)PUT , 

“a)LFTSIB,PINAME, ERROR) ; 
CALL PRIMITIVE PCBDATA (MYN AME, a)PUT, a)CHILD, 

PINAME, ERROR) ; 

*** CREATE AN RCB FOR THE DEVICE. ***/ 

CALL CREATE RCB (#DE VICE ,R XN AME , PI NAME , 10 , 

S OR PTC 1 ) ,INTRPTNR,I0,I0, RINAME, 

EAR OR) ; 

/* SET UP RESOURCE ACCESS VECTOR */ 

RES VEC = * 00 1 B ; 

RES“VEC (RIjUME) = ##ACCE3; 

RES~VEC ($I3UFF) = ##ACCES; 

RES""VEC (SINPUT) = ##ACCES; 

R£S~VEC (3SPACE) = ##ACCES; 

R ES"~ V EC (32 RROR) = ##ACCES; 

R ES~~ VEC (SFILEOP) = #*aCCES; 

RES“VEC (3INTRPT) = ##ACCES; 

RES~VEC (3INTDEV) = ##ACCES; 

RES” VEC WAIT) = ##ACCES; 

CALX PRIMITIVE PCBDATA (PINAME, a)PUT, SEES VEC, 
SEM L LIMIT7PCT U LIMIT, RES VEC, ERROR) ; 
*** INSEBT“PXGE TABLE SECTOR AND MESSAGE EUEFER 
POINTER IN THE PCB. ***/ 

CALL PRIMITIVE PCBDATA (PIN A ME , dPUT , SBFMVEC , 
II, NRPGS7PGTABVEC, ERROR) ; 

ALLOCATE MESSAGE BUFFER SET (TEMP PTB) ; 

CALL PRIMITIVE PCBDAT A (PI NAME, cuPUT , &MSGPTR, 

TEMP PTE, ERROR) ; 

*** RELEASE MESSAGE TO THE NEW PROCESS IDENTI- 
FYING THE DEVICE INTERNAL NAME. ***/ 

FIELD 1 = RINAME: 

CALL PRIMITIVE RELEASE (PINAME, $ IN TDEV, 

MESSAGE, ERROR) ; 

** ALLOCATE AND RELEASE INPUT BUFFERS TO BE 

USED BY THE NEW PROCESS. ***/ 

FIELD1 , F1ELD2, FIELDS, FIELD4 = 0; 

MSG SEMAPHORE = 0; 

ANSWER REQUEST = FALSE: 

CHAR FIELD 1 , CHAR FIELDS = ' •; 

ALLOCATE INPUT BUFFER SET (IBUFPTR) ; 
BUFFER LOCATION = IBUFPTR; 

CALL PRIMITIVE RELEASE (PINAME, 3 1BUFF, 

MESSAGE, ERFOB) ; 
ALLOCATE INPUT BUFFER SET (IBUIPTE) ; 
BUFFER LOCATION = IBUFPTR; 

CALL PRIMITIVE RELEAS E ( PI N A M F , $1 3 U Fr , 

MESSAGE, ERROR) ; 



/ 



/ 



/* 
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FNLCASE 
CASE (2) 



/*** INSERT THE PROCESS ON THE READY ACTIVE 

QUEUE AND ENABLE THE DEVICE INTERRUPT. ***/ 
NRDEVICES = NRD E VICES 4 1; 

-CALL PRIMITIVE INTERRUPT ENABLER (INIRPTNR , 

DUMMY) ; 

CALL RCBPUTQ (#REDYA , #OS , PINAME, 10 , PRI , N ULP , 
10, ERROR) ; 

FIELD1 = $$OPCOM ; 

FIELD2 = $$DONE ; 

END; 

ELSE DO; FIELD2 = $$FAIL: 

CHAR FIELD2 = 'BAD NAME'; 

END: 

/*** RELEASE ACTION TAKEN MESSAGE TO OPERATOR 

SYSTEM COMMUNICATOR. ***/ 

CALL PRIMITIVE RELE ASE (AN YPRCC , $OPR 10, 

MESSAGE, ERROR) ; 



CALL 



/* MESSAGE FROM OPERATOR SYSTEM 

COMMUNICATOR; DELETE A DEVICE */ 
FIND INAME (#D£VICE,CHAR EIELD1 ,RINAME, 



CALL PRIMITIV: 



ERROR) ; 

RCBDATA (RINAME, #GET,#OWNER 



/* 



ENECASE 
CAS £ (3) 



iA nau J-J / T( VJJJl # 

PI NAME, ERROR) 

DISENABLE THE INTERRUPT, LOCATE AND FREE 
BUFFERS, DESTROY OUTSTANDING FILES, 

OUTPUT MESSAGE TO OPERATOR CONCERNING 
USER PROCESS EFFECTED, DESTROY DEVICE 
RCB AND PROCESS PCB, RELEASE ACTION 
DONE MESSAGE TO OPERATOR-SYSTEM 
COMMUNICATOR. ALL TO BE IMPLEMETED */ 






INFORMATION UNTIL 
JOB IN JOB QUEUE 



ECF 



END 



END 



SAVE JCL AND FILE 
IF EOF, ENTjc.R NEW 
DCL JCLCODE CHAR (2) ; 

DCL MSG PT FIXED BINARY INIT(1'; 

DCL MSG“LEN FIXED 3I1JARY INIT (2) ; 

IBUFPTR“= BUFFER LOCATION; 

JCLCODE = SUBSTRllBUFPTR -> IN’ BUFF, 

MSG PT , MSG LEtl) ; 

IF (JCLCODE = *a)a)*) THEN DOf /* OPCOM MSG */ 

FIELD2 = $$OPRTR; 

PIELD1 = SSOPCOM; 

ANSWER REQUEST = FALSE; 

CALL PRIMITIVE RELE ASE (AN YPRCC, 3>OPR IC, 

MESSAGE, ERROR) ; 
END; 

/* ELSE DO; SAVE JCL FOR THE PROCESS, FILE INFO, 
OR ENTER IN JOB QUEUE IF JOB EOF. 

ENDCASE; 

OF CASES; 



V 



V 



SIM END 



MESSAGE INTERPRETER: PROC; 

/* THIS SUBROUTINE DETERMINES WHO DID THE RELEASE ON 

$ I N P U I AND WHAT ACTION IS REQUIRED. */ 

IF ( (FIELD 1 = .SSOPCOM) J (FIELD2 = 4> $ A D D ) ) THEN 1 = 1; 
ELSE IF ( (FIELD 1=$FOPCOM) & (FI ELD2-$4>DELEI) ) THEN 1=2; 
ELSl IF (FIELD 1 = 3$ JCL) THEN 1=3; 

ELSE ERROR = 304; 

END MESSAGE INTERPRETER; 

END INPUT CONTROLLER; 
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MODULE SPECIFICATION 



NAME; OUTPUT CONTROLLED TYPE: PROCESS 



PARAMETERS 

INPUT OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAME PARAMETERS ^PURPOSE 

Reguest Process I-Name, a) SOutput - Semaphore used to 

Semaphore, identify messages for this 

Message Pointer, process. 

Error Parameter b) $Obuff - Semaphore used to 

obtain an output buffer, 

c) SPrintg - Semaphore used to 

get next print job. 

a) $Error - Semaphore used to 
send messages to the Error 
Handler. 

b) tflntdev - Semaphore used to 
send message to an inter- 
face process to identify a 
device internal name. 

c) $Obuff - Semaphore used to 
release output buffers. 

d) $0pr_I0 - Semaphore used to 
send messages to Operator 
System Communicator in ■ 
reply to 4>$GEC0M messages. 

e) $Putout - Semaphore used to 
send output commands to in- 
terface processes. 

f) $Fileop - Semaphore used to 
send messages to the File 
Manager to open, read or 
destroy a file. 

Process X-Name, Entry point to PCB Handler 

Process I-Narae, used to obtain the internal 

Error Parameter name of a process identified 

by external name. 

Device Resource X-Name, This module is invoked to get 
Directory Access Identifier, data which identifies a device 
Process X-Name, interface process and which is 

Page Table Length, required to create a PCB and 
Page Table Vector, an RCB for the interface pro- 
Pnority. cess ana device, respectively. 

Interrupt Number, 

Located- Eo clean 

PCBData Process I-Name, 

Put/Get Identifier, 

Field Identifier, 

Data Parameter, 

Error Parameter 

PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain dati or portions cf the 
Vectoi Lower Limit, data stored as a vector (i.e.. 
Vector Upper Limit, Resource Access Vector, Page 
Vector Parameter, Table Vector, etc.). 

Error Parameter 



Generic entry point to PCB 
Structures module to enter or 
obtain data. 



Find 

Piname 



Release Process i-Name, 
Semaphore , 
Message Pointer, 
Error Parameter 
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RCBData 



RCBEUTQ 



Find 
I- Name 



Interrupt 

Enabler 



Interrupt 

Disabler 



Create 

RGB 



GEIPCB 



Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 

Resource I-Name, 
Left/fiight Queue, 
Process I-Name, 

Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 

Resource Type, 
fiesourse X-Name, 
Resource I-Name, 
Error Parameter 



Interrupt Number, 
Interrupt Save- 
Vector 



Interrupt 

Interrupt 

Vector 



Number, 

Save- 



Resource 
Resource 
Resource 
Sz-Cntr 
Access I 
PCI Name 
De v/Int 
File Des 
File Des 
Resource 
Error Pa 



Priori t 



Type, 
X-Name, 
Owner. 
Parameter, 
dentif ier , 

identifier , 
criptor , 
criptor, 
I-Name, 



Generic entry point to RCB 
Handler module to enter or get 
data concerning a resource. 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues use! by this process 
are the message semaphore and 
the Ready Active queues. 

Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) and 
external name. 

This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 

This module is invoked to dis- 
able a specific or 
all interrupts and saving the 
status of the interrupts in 
a save-vector for enabling. 

Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 



Error Parameter 



rameter 






-Name, 


Entry point to 


PCB S 


I-Name, 


used to create 


a PCB 


X-Name, 


process; enter 


data 


i 


fields; and ret 


urn t 


rocess ID, 
te Vector, 
I-Name, 
rocess Id, 


internal name. 





EXTERNAL CA1LS HADE BY OTHER MODULES 
NAME PURPOSE 



Not applicanle for processes. 



DATA STRUCTURES USED 

NAME f _FIELD_ TYPE PU RPOSE^V ALU IS 

Message Based Dynamically allocated, pointer 

Buffer qualified structure used for 

passing messages. 
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Releasor 


Integer 


Internal name of process 
releasing a message. 




Ans ver- 
Re guest 


Bit (1) 


Boolean indicating if answer 
required. 




Message- 
Semapnor e 


Integer 


Semaphore to be used in the 
answer. 




Buffer- 

location 


Pointer 


Qualifies an output buffer 
used to store data read from 
files and to pass data for 
output to an interface 
process. 




Fieldl 


Integer 


a) $$OPCOM - identifies a 
message from the Operator 
System Communicator. 

b) $i>TERM - identifies a mes- 
sage from the Terminator to 
print a job. 

c) SPREAD, **E0F or $$0PENF - 
identifies message-type 
answer from File Manager. 




Field2 


Integer 


a) $$PASS - pass message to 
the system operator. 

b) $$ADD, $$DELET or $$SI0P - 
identifies task specified 
by the Operator System 
Communicator . 

c) File internal name to be 
printed. 




Field3 


Integer 


File record to be printed. 




Field4 


Integer 


Not used. 




Char- 

Fieldl 


Char (8) 


File external name. 




Char^= 

Field2-4 


Char (8) 


Not used. 


Output 

Admin 

Table 




Array 


This structure is used tc 
determine availability of de- 
vices, the interface process 
internal name, and the file 
being printed on that device. 




Interface 

Process 


Integer 


Process internal name. 




Assigned 


Bit (1) 


Identifies available devices. 




File Name 


Integer 


File internal name. 


MODULE 


DESCRIPTION 







The Output Ctntrolier p^ifoos sucn functions as creating 
and destroying interface processes and device RCb*s; 
assigning output tiles to the device;, opening and destroy- 
ing output files; passing output bailors nith tile acta or 
system messages to the appropriate device; etc. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGR; /***** OUTPUT CONTROLLER *****/ 

(CHECK (ERROR)): 

OUTPUT_CCNTKCILER: PROC OPTI6NS (MAIN) ; 

✓ * ********************** ***** 
THIS PROCESS HAS BEEN IMPLEMENTED TO CENTRALIZE AND 
FACILITATE THE 11 OUTPUT “ REQUIREMENTS IC VARIOUS Dr VICES 
THAT MAI, AND GENERALLY DO, EXIST IN AN ALL APPLICATION 
COM LUTES SYSTEM. THE PROCESS INTERACTS THROUGH THE USE 
OF MESSAGES TO AND FROM OTHER PROCESSES SUCH AS THE 
TERMINATOR, OPERATOR SYSTEM COMMUNICATOR, FILE MANAGER, 
ERROR HANDLER , AND VARIOUS INTERFACE PROCESSES. IN 
ADDITION, IT INVOKES SEVERAL OF THE PRIMITIVES TO 
ACCOMPLISH ITS FUNCTIONS. * * * * */ 

^INCLUDE SIMULTR; 

SIM_ST ART (FROCESS_OUTPUT^CONTROLLER) 

^INCLUDE GENLEC; 

^INCLUDE REQRELD ; 

^INCLUDE CASESTM; 

%I NCLUDE PCELCL ; 

^INCLUDE RCHDCL; 

ON CHECK (ERROR) 

BEGIN; 

IE (ERROR -.= 0) THEN DO; 

(NOCHECK (ERROR)): 

BEGIN ; 

FIELD 1 = RELEASOR; 

MSG SEMAPHORE = $OUTPUT; 

CALX PRIMITIVE RELEASE (ANYPRGC , $ERRO R , 

MESSAGE, ERROR) ; 

ERROR = 0; 

END; 

GO TO START; 

ENE; 

END ; 

$1 NCLUDE RRMSG; 

DCL 1 OUTPUT ADMIN TABLE (10) STATIC, 

2 INTI PRHCS FIaED BINARY INIT((10) 0), 

2 ASSIGNED BIT ( 1 ) INIT((10)(1) *G , B), 

2 FINAME FIXED BINARY INIT((10) 0); 

DCL CPR CUT DEV FIXED BINARY STATIC; 

DCL CUT JOES FIXED BINARY STATIC; 

DCL N R EE VICES FIXED BINARY STATIC INIT (0) ; 

DCL II FIXED BINARY INIT(I); 

DCL NULP POINTER; 

DCL NENDEVICE FIXED BINARY; 

DCL I FIXED BINARY STATIC; 

DCL RECORD FIXED BINARY STATIC; 

DCL ERROR FIXED BINARY STATIC INIT (0) ; 

DCL INAME FIXED BINARY; 

DCL EURFEK USED BIT(1) STATIC INIT('I'E); 

ECL EUEF ER~POI NT EE POINTER STATIC; 
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START: DC FOREVER; 

IF EUFFER USED THEN DO; 

/* GET AN OUTPUT BUFFER V 
CALL FRIMITIVE_REQUEST (AN YPROC , $03UFF , MESSAGE, ERROR) ; 

SIM_INTERRUFT_PT 

BUFFEF POINTER = BUFFER LOCATION; 

EUFFEITUSED = FALSE; ~ 

END: 

CALL PR I M IT I VE_ REQUEST (ANY PR CC / $OUTPUT, MESSAGE, ERROR) ; 
SIM_INIERBUPT__PT 

CALL MESSAGE_INTERPRETER; 

DO ACTION_OF CASE (I) ; 

Case ( i ii > 

/* Ot J £RATOR SYSTEM COMMUNICATOR MESSAGE */ 

IF (FIELD2 - 4>$PASS) THEN 

/*** OUTPUT THE MESSAGE ***/ 

CALL PRIMITIVE RELEASE (OPR OUT DEV , $PUTOUT , 

MESSAGED ERROR) ; 

ELSE DO; 

/*** PERFORM TASK SPECIFIED ***/ 

CALL OP COMM MSG HANDLER: 

IF ( (NET5DEVICE - 1 = 0) & (OUT JOBS -»= 0)) THEN 
CALL START NEW JOB (NRDEVlCES) ; 

END; 

ENDCASE; 

CASE (2) : 

/* TERMINATOR MESSAGE */ 

/*** INCREMENT PRINT JOB COUNTER AND DETERMINE 
IF A DEVICE IS AVAILABLE. ***/ 

OUT JOBS = OUT JOBS + 1: 

DO I = 1 TO NRDEVlCES WHILE ( ASS IGN ED (I) ) ; END; 

IF (I < = NRDEVlCES) THEN CALL START NEW JOB (I) ; 
ENDCASE; 

CASE (3) : 

/* rILE MANAGER MESSAGE */ 

CALL FILE MSG HANDLER; 

ENDCASE: “ 

END OE CASES; 

END; ~ “ 

MESSAGE INTERPRETER: PROC; 

/* Determine which process did a release on the 

SOUIFUT SEMAPHORE AND SET THE CASE STATEMENT 
INDEX ***/ 

IF (FIELD 1 = $$OFCOM) THEN 1 = 1; 

ELSE IF (EIELD1 = SSTERM) THEN 1=2; 

ELSE 1=3: 

END MESSAGE INTERPRETER; 
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CP COMM MSG HANDLES: PROC; 

“/* ta ke the appropriate action: i.e.. add a device and 

AN INTERFACE PROCESS, DELETE A -DEVICE AND INTERFACE 
PROCESS, OR STOP PRINTING A JOB. */ 

DCL IS OR P, NEPGS,PP.I,PINAME,RINAME,CHIID,INTRNR,INBX) 
FIXED BINARY; 

DCL FOUND BIT (1) ; 

DCL (FXNAKE,RaNAME) CHAR (81 STATIC; 

DCL PGTABVEC(I) FIXED BINARY: 

DCL STATE VSC(IO) FIXED BINARY (3>,0); 

DCL RES VEC (SEM L LIMIT : PCT U LIMIT) BIT (21 ; 

DCL LUH116) BIT717; 

DCL TEMP PTR POINTER; 

/■? DETERMINE ACTION REQUIRED AND SET INDEX */ 

IF (EIELE2 = S $ADD) THEN INDX = 1; 

ELSE IF (FI ELD2 = SSDELE'T) THEN INDX = 2; 

ELSE IF (FIELD3 = S$STOP) THEN INDX = 3; 

ELSE ERROR = 306; 

DO ACTION OF CASE (INDX) ; 

CASE MY: /* ADD A DEVICE AND INTERFACE PROCESS. */ 

RXNAME = CHAR FIELD 1 ; 

CALL DEVICE DIRECTOR Y (RXNAME, S OR P , PXNAM E , N RPGS , 

PGTABVEC7PRl,INTFdiR, FCUND) ; 

IF (FOUND = FALSE) THEN DO; 

/*** INVALID EXTERNAL NAME ***/ 

FIELD2 = ISFAIL; CHAR FIELD2 = 1 BAD NAME 1 ; 

ENI>; 



ELSE DO 
y *** 



'li 



CREATE PCB FOR INTERFACE 
FAMILY LINKAGE, AND CREaT 
CALL PRIMITIVE PCB DATA (MYNaM 

CHILD 

STATE VEC (1 ) = PGT ABVEC ( 1 

ST ATE - VEC (2) =1; /* 

CALL HETPCB (MYNAME, CHILD , PXN 
STATE VEC , PI NAME 
IF (CHILD -*= 0) THEN 

CALL PRIMITIVE PCBDAT A (CH 

PI 

CALL PRIMITIVE PCB DATA (MYNAM 

PINAM 

CALL CREATE RCB ( #D EVICE , RX N A 
S OR P ,7 ‘ 1 ) , INTRNR , (0) , 

/* set up resource vector fo 

RES VEC = ' 00 « B ; 

RES~V£C (RINAME) = ##ACCES; 
RES^VEC (SPUTOUT) = ##ACCES; 

ii a rrpe:. 



PROCESS, SETUP 
E DEVICE RCB. ***/ 
E,aGET,a)CHILD, 

, ERROR) ; 

REGISTER */ 
AME,PRI f TRUE, 

, (0) , ERROR) ; 

ILD,a)PUT,a)LFISI3, 
NAME, ERROR) ; 
E,a)PUT,G)CHILL, 

E, ERROR) ; 

ME, FINAHE, (0) , 

(0) , RINAME, ERROR) ; 
R PI NAME V 



RES 

RES 

RES - 

RES - 

RES - 

CALI 

CALL 




'BERKO A) ' = # # ACCES 
SOBUFF = # S ACCES ; 

[SI NT HPT) = #*aCCES ; 
SINTDEV) = ##ACCES; 

$ W AIT) = ## ACCES: 
[MITIVE PCBDATA (PINAM 
SLM . L LIMIT, PCT U LIM 
PRIMITIVE PCBDATA7PIN AM 

II, NRPG 

/*** GET MESSAGE EUFFER FOR IN 
ALLOCATE MESSAGE BUFFER SZT( 
CALL PRIMITIVE PCBCATA (PINAM 

TEMP 

/*** RELEASE MESSAGE IO THE PK 
THE DEVICE INTERNAL NAME. 
FIELD1 = RINAME; 

CALL PRIMITIVE RELEASE (PINAM 

MESSA 



E , EPUT,u)RESVEC, 

IT, RES VEC, ERROR) ; 
E,aPU r i'7dJbRKVEC, 



S, PGTABVEC, ERROR) 
TERRACE PROCESS ' 



V 



a EBP PTR) ; 

F , a P u T , a) M S G P I R , 
PTR, ERROR) ; 

OCESS IDENTIFYING 



* * 



* y 



E , SINTPEV, 
G L , E K R 0 1 \ ) ; 
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'** GET OUTPUT BUFFERS AND INSERT ON THE 
AVAILABILITY QUEUE (RELEASE MESSAGES) . 
FI EL D1, FIE LD2, Fir. LD 3, FIELD4 = 0; 

MSG SEMAPHORE = 0; 

ANSWER REQUEST = FALSE: 

CHAR FlELD1,CHAR FISLD2 = • *; 

ALLOtATE OUTPUT BUFFER SET (OBUFPTR) ; 
BUFFER LOCATIO N"~= 03UFPTR ; 

CALL PRIMITIVE RELEASE (MYN AM E , SOBUFF . 

MESSAGE, ERROR) ; 

ALLOCATE OUTPUT BUFFER SET (OBUFPTR) ; 
BUFFER LOCATIO N~ = OBUFPTR; 

CALL PRIMITIVE RELEASE (NYNAMF , SOBUFF . 

MESS AGE , ERROR) ; 

INITIALIZE LOCAL VARIABLES AND INSERT 
THE INTERFACE PROCESS ON THE READY » A 1 



QUEUE. ENABLE THE DEVICE INTERRUPT. ***/ 
NRDE VICES = NRQEVICSS + 1; 

INI? PROCS (NR DEVICES) = PI NAME : 

IF (URDEVICES = 1) THEN OPR OUT DEV = PI NAME; 
CALL PRIMITIVE INTERRUPT £ NlELEE (INTR NR , CUM) ; 
NULP = NULL; ~ 

CALL RCBPUTQ (#REDYA,# OS, PINAME, (0) ,PRI,NULP, 
(0) , ERROR) ; 



NEWDEVICE = PI NAME; 

FIELD1 = i$OPCOH; 

FIELD2 = $$DONE ; 

END; 

/*** RELEASE ACTION TAKEN MESSAGE TO OPERATOR 
SYSTEM COMMUNICATOR ***/ 

CALL PRIMITIVE RELEASE (AN YPROC, $OPR 10, MESSAGE, 

ERROR) ; 

E N EC A SE ; 

CASE (2): /* DELETE A DEVICE AND DESTROY THE 

INTERFACE PROCESS */ 

CALI FIND INAME (#DE VICE , CHAR FIELD 1 , RlNAMiS , tRROR) 
CALI PRIMITIVE RCBDATA (RI NAME , #GST , #DI NAME , INTR NR 

ERROR) ; 

CALL PRIMITIVE INTERRUPT DISEHA3LER (INTRNR , DUE) ; 

/* LOCATE BUFFERS AND DESTROY THEM, 

DESTROY RCB , PCB, MESSAGE CONTAINER 




AND ALL OUTSTANDING RELEASES/REQUESTS 
CONCERNING THE INTERFACE PROCESS */ 

E N E C A S £ ’ 

CASE (3): /* STOP PRINTING CURRENT JOB */ 

/*** GET INTERNAL NAME OF THE DEVICE AND 

INTERFACE PROCESS. ***/ 

RXN AME = CHAR FIELD 1 ; 

CALL FIND INAUE (#DFVICE ,RXNAME, INAME, ERROR) ; 

CALL PRIMITIVE RCBDATA (INAME, tfGET , #CWNER, PINAME, 

ERROR) ; 

DO I = 1 TO NRDEVICES 



WHILE (INTF PROCS (1) -i= PINAME); END; 

RESET LOCAL VARIABLES, RELEASE MESSAGE TO 
OPERATOR SYSTEM COMMUNICATOR, AND 
CHECK FOR NEW JCB TO PRINT. ***/ 

FI NAME (I) = 0; 

ASSIGNlD(I) = *0*3; 

FI ELD 1 = $$OPCOM ; 

EIELD2 = SSDOHE ; 

CALL PRIMITIVE RELEASE (ANYPROC, $OPR 10, MESSAGE, 

ERROR) ; 

IF (OUT JOBS -* = 0) THEN CALL START NEW JOB (I) ; 
ENECASE; 

END CE CASES; 

END OT CCMM MSG HANDLER; 
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FILE MSG HANDLER: PROC; 

/? IHlS SUBROUTINE PASSES OUTPUT BUFFERS TO THE 

APPROPRIATE OUTPUT DEVICE: CHECKS FOR OUTSTANDING 
JOBS TO PRINT ; IF ANY, GETS THE FILE NAME FROM 
PRINT QUEUE AND ASSIGNS THE FILE TO THE DEVICE 
FOR PRINTING. ***/ 

DCL EXNAME CHAR(8) STATIC: 

DO I = 1 TO NRDEVICES WHILE (FINAME(I) -= FIEID2) ; 
FND ; 

/*** PASS OUTPUT BUFFER TO APPROPRIATE 

INTERFACE PROCESS. ***/ 

IF (FIELD 1 = $$READ) THEN DO; 

RECORD = FIELD3 + 1; 

MSG SEMAPHORE = iOUTPUT: 

CALL PRIMITIVE R ELEA SE (INTF PROCS (I) , $PUTO UT , 
f “ MESSlGE,ERROR) ; 

/*** GET ANOTHER OUTPUT BUFFER, INITIALIZE 
MESSAGE BUFFER., AND RELEASE MESSAGE TC 
FILE MANAGER TO READ THE NEXT RECORD. ***/ 
EUFFER LOCATION = BUFFER POINTER; 

FIELD1 = $3READ; “* 

FIELD2 = FI NAME (I) ; 

FIELD3 = RECORD; 

FIELD4 , FIELD5 , FIELD6 = 0; 

CHAR FIELD 1 , CH AR FIELD2,CHAR FIELD3 , 

CHAR FIELD4 = * * ; 

MSG SEMAPHORE = SOUTPUT; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (ANYPROC , $FILEOP, MESSAGE, 

ERROR) ; 

BUFFER USED = TRUE; 



ELSE IF 



(FIELD 1 = 
PRINT TASK 
VARIABLES, 
THE OUTPUT 
FILE MAN AG 
ASSIGNED (I) = 

FI NAME (I) - 0 
IF (OUT JOBS 
CALL PfilMITIV 

FIELD 1 = $$DS 
CALL PRIMITIV 



ELSE DO 



/* FIL 
GET OUTPUT 
BUFFER, AN 
MANAGER TO 
BUFFER LOC ATI 
Fi.ELD1 = SSRE 
FIELD2 = FINA 
FIELDS = 1; 

FI EL D4, FIELDS 
CHAR FI£LD1,C 

Char fill 

MSG S EH A FriO RE 
ANSWER REQUEST 
CALL PRIMITIVE 



END; 

$$ EOF) THEN DO; 

FINISHED: REINITIALIZE LOCAL 
TEST FOR HEW PRINT DOR - RET EASE 
BUFFER, AND RELEASE MESSAGE TO 
ER TO DESTROY THE FILE ***/ 
FALSE; 

0) THEN CALL START NEW JOB (I) ; 

E RELEASE (MY NAME, $OBUTF , MESSAGE, 
ERROR) ; 

TYF: 

E RELEASE (ANYPROC, IFILEOP, 
MESSAGE, ERROR) ; 

END ; 

OPENED */ 

UEFER, INITIALIZE MESSAGE 
RELEASE MESSAGE TO THE FILE 
E AD THE FIRST RECORD. ***/ 

= BUFFER POINTER; 



E 

B 

D 

R 

ON 

AD 

ME 



(I) 



, FIELD6 = 0; 

HAR FIELD2, CHAR FIELD3 , 

D4 = ' « ; 

= ^OUTPUT; 

= TRUE; 

RELEASE (ANYPROC, SEILEOP, 
MESSAGE, ERROR) ; 

BUFFER USED = TRUE: 




/*** T HIS SUBROUTINE OBTAINS THE EXTERNAL NAME CF THE 
FILE TO BE PRINTED FROM THE PRINT QUEUE (CHAR- 
FIELD 1 ) , RELEASES A MESSAGE TO THE FILE MANAGER 
10 OPEN THE FILE FOR A READ OPERATION, UPDATES 
LOCAL VARIABLES TO REFLECT THE ASSIGNMENT, ANE 
CHANGES OWNERSHIP OF THE FILE TO THE OUTPUT 
CCNTROLLER. ***/ 

START NEWJCB: PROC (INDEX); 

DCL~ INDEX FIXED BINARY; 

CALI PRIMITIVE REQUEST (ANYPROC,$PRINTQ, MESSAGE, ERROR) ; 

FIELD 1 = $SOPE^F; 

FIELE2 = # #RE AD ;. 

MSG SEMAPHORE = $OUTPUT; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (A NYPR OC , $FI LEOP , MESSAGE , ERROR) ; 

ASSIGNED (INDEX! = TRUE; 

FINAME (INDEX) , INAME = FIELD2; 

OUT JCBS = OUT JOBS - 1; 

CALX ERIMITIVE~RCEDaTA (I NAME , ff PUT, * OK NER , BYNAME , ERROR) ; 

END START_NEWJ03! 

SIM_ENE 

END OUTPUT CONTROLLER;- 
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MODULE SPECIFICATION 

NAME: INITI ATOR . TYPE: PROCESS 

PARAMETERS 

INPUT OUTPUT TYP E CONTENTS_ 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAM E PARA MET ERS PURPOSE 

Reguest Process I-Name, a) $Iname - Semaphore used to 

Semaphore, limit the number of pioces- 

Message Pointer, ses in the system. Requests 

Error Parameter decrement counter while re- 
leases by Terminator incre- 

ment the counter, 
b) iNewjob - Semaphore used to 

identify messages to this 
process. 

♦ s**#**********^^^ implementation Incomplete************** 
****** ** $#*****& nticipa ted External Calls******** 1 ********* 

PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 

PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data or portions cf the 
Vector Lower Limit, data stored as a vector (i.e.. 
Vector Upper Limit, Resource Access Vector, rage 
Vector Parameter, Table Vector, etc.). 

Error Parameter 

RCBData Resource I-Name, Generic entry point to RCB 

Put/Get Identifier, Handler module to enter cr get 
Field Identifier, data concerning a resource. 
Data Parameter, 

Error Parameter 

RCBPUTQ Resource I-Name, Entry point to RCB Handler 

Left/Right Queue, used to insert a process 
Process I-Name, or a message on a specified 

Data Parameter, resource queue by priority. 

Priority. Queues used by this process 

Message Pointer, are the message semaphore and 
Data Parameter, the Ready Active queues. 

Error Parameter 



GETPCB Parent I-Narae, 
Rgt-Sib I-Name, 
Process X- Name, 
Priority , 

System process ID, 
Init State Vector, 
Process I-Name, 
Cyclic Process Id, 
Error Parameter 



Entry point to PCB Structures 
used to create a PCB for a 
process;, enter data in the PCB 
fields; and return the proce.ss 
internal name. 
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Create Resource Type, 

RCB Resource X-Name, 

Resource Owner. 
Sz-Cntr Parameter, 
Access Identifier, 
PC! Name, 

Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip 
tor data in the appropriate 
RC3 fields; and return- the 
resource internal name. Not 
all fields are used by each 
type of resource. 



Find Resource Type, 

I-Name * Resourse X-Name, 
Resource I-Name, 
Error Parameter 



RCBGETQ Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Q_Eata Parameter, 
Message Pointer, 

Q Data Parameter, 
Found Boolean, 
Q_Status Boolean, 
Error Parameter 

RCB^Find Resource I-Name, 
Left/Right Queue, 
Find Operation, 
Queue Position, 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) and 
external name. 

This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified queue 
for the indicated resource. 

The data stored in the queue 
are returned if the process is 
found and the queue status is 
also provided. 



This entry point to RCB 
ler is used to determine 
position of a process an 
or get a copy of data. T 
process, position, or bo 
be specified to select a 
cific process, any proce 
the specified position o 
specific process at a sp 
fied position. 



Hand- 
queue 
d put 
he 

th may 
spe- 
s s at 
r a 
eci- 



EXTERNA1 CALLS MADE BY OTHER MODULES 
NAME PURPOSE 

Not applicable for processes. 




DATA STRUCTURES USED 



NAME 


FIELD 


TYPE 


PURPOSE/VALUES 


Message 

Buffer 


— 


Based 


Dynamically allocated, pcint 
gualified structure used for 
passing messages. 




Releasor 


Integer 


Internal name of process 
releasing a message. 




Answer- 

Reguest 


Bit (1) 


Boolean indicating if answer 
required . 




Message- 

Semaphore 


Integer 


Semaphore to be used in the 
answer. 




Buffer- 

Location 


Pointer 


Not used. 




Fieldl-6 


Integer 


Use undefined. 




Char- 
Fieldl -4 


Char (3) 


Use undefined. 



******** ***# ***Add it ional Structures Undef ined **** ********** 



MODUL E DESCR IPTION 



Initiator design 
types, JCI used. 



and implementation 
etc. must be known 



is incomplete: job 

before inplemenfat ion. 
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IMPLEMENT ATI ON 



5EIHCIUDE NAHCHGR; 

(CHECK (ERROR) ) : 

INITIATOR : PROC OPTIONS (MAIN) ; 
^INCLUDE GENIEC; 

%INCLUDE PCBCCL; 

S6INCLUDL REQRELD; 

^INCLUDE R R M S G ; 

ON CHECK (ERROR) 

BEGIN ; 

If (ERROR -.= Oi THEN DO; 
(NOCHECK (ERROR' ‘ 



INITIATOR ***♦*/ 



BEGIN; 
SOR; 



flELDI '= REL^is 
f IELD2 = ERROR; 

CALL PRIMITIVE RELEASE (ANYPROC r $ERROR r MESSAGE, 

ERROR) ; - 

GO TO START; 

END; 

END; 

END; 

DCL (NEN P I NAME, PARENT .PRIORITY) FIXED BINARY ; 

DCL EXTbEeAI NAME CHAR (8); 

DCL ERROR FIXXD BINARY STATIC INIT (0) ; 



START; 

DC FOREVER ; 

/*** CHECK FOR AVAILABLE PCB SPACE ***/ 

CALL PRIHITI VE_REQUES T (ANYPROC, $INAME, MESSAGE, ERROR) ; 

/*** GET NEXT JOB TO BE CREATED ***/ 

CALL PRIMITIVE REQUEST (AN YPROC , SNEW JOE, MESS AGE , 

ERROR) ; 

/*** INTERPRET DATA FROM JOB QUEUE ***/ 

CALL JCL INTERPRETER; 

«r- * 

/*** GET THE REQUIRED RESOURCES ***/ 

CALL GET_REQUIRED_RESOURCES ; 

/*** CREATE A PCB FOR THE PROCESS ***/ 

/*** CALL CREATE^PCB ***/ 

/*** FREE JOB QUEUE SPACE ***/ 

CALL PRIMITIVE RELEASE (AN YPROC, $JOBQSP / MESSAGE, 

ERROR) ; 

/*** INSERT THE PROCESS ON THE READY A QUEUE **/ 
CALL RCBPUTQ (#REDYA / #USER ,P I NAME, (0) ^PRIORITY, 
KSGPTR , (0) , ERROR]" ; 

END ; /* MAIN PROGRAM SCOPE */ 

JCL_INTEEPRSTSR; PROC ; 



/* INTERPRET JCL TO IDENTIFY REQUIRED RESOURCES 

AND CAPABILITIES */ 

RETURN; 

END JCl^ INTERPRETER; 

GE T_ REQUIRE D_ RESOURCES: PROC ; 

/* VERIFY THAT THE PROCESS BEING CREATED CAN ACCESS 
THE RESOURCES HE REQUESTED ; CREATE ECU' AS 
NECESSARY AND SET UP ACCESS VECTOR */ 

RETURN ; 

END G jtT REQUIRED RESOURCES; 

END INITIATOR; 
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MODULE SPECIFICATION 



NAME: TERMI NATO R TYPE: PROCESS 



PAR AMETE BS 

INP UT OJjIPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAME PARAMETERS PURPOSE 

Reguest Process I-Name, a) $Endjob - Semaphore used to 

Semaphore, identify messages to this 

Message Pointer, process. 

Error Parameter 



**************M 0 ( j u i e implementation incomplete******** ****** 
*****************Anticipated External calls***************** 



Find 

Piname 


Process X-Name, 
Process I-Name, 
Error Parameter 


Entry point to PCB Handler 
used to ontain the internal 
name of a process identified 
by external name. 


PCBLata 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data. 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 


RCBData 


Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 


RCBPUTQ 


Resource I-Name, 
neft/Right Queue, 
Process I-Narae, 
Data Parameter, 
Priority, 

Message Pointer, 
Data Parameter, 
Error Parameter 


Entry point tc RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by tnis process 
are the message semaphore and 
the print queues. 


Destroy- 

RCB 


Resource I-Name, 
Process I-Name, 
Process Vector, 
Error Parameter 


This entry point to RCB hand- 
ler is used to destroy an RCB. 
All processes on the PCD queue 
are identified and returned to 



the calling process so that an 
error message nay be sent to 
tne Error Handler for each 
process in the list. 
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RCBGETQ 






Resource I-Name, 
Left/Right Queue 
Process I-Name, 
Q_Data Parameter 
Message Pointer, 
Q_Lata Parameter 
found Boolean, 
Q_Status Boolean 
Error Parameter 



This entry poi 
ler is used to 
cess from the 
for the indica 
The data store 
are returned i 
found and the 
also provided. 



nt to RCE Hand- 
remove a pro- 
specified queue 
ted resource, 
d in the queue 
f the process is 
queue status is 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAMJ 

Not applicable for processes. 



DATA STRUCTURES USED 



Message 

Buffer 



.FJELD 


TYPE 


PURPOSE/ VALUES 


— 


Based 


Dynamically allocated, pointer 
qualified structure used for 
passing messages. 


Releasor 


Integer 


Internal name of process 
releasing a message. 


Answer- 

Reguest 


Bit (1) 


Boolean indicating if answer 
required. 


Message- 

Semaphore 


I nteger 


Semaphore to be used in the 
answer. 


Buffer- 

Location 


Pointer 


Not used. 


Fieldl -6 


Integer 


Use undefined. 


Char- 
f ieldl-4 


Char (8) 


Use undefined. 



***************££Qit ional Structures Undefined************** 



MOD ULE_ DEJCRT.PT ION 



Terminator design and implementation is incomplete. Note; 
terninaticn cf a process results in the termination of all 
dependent processes; deallocating resources; and printing 
output files. 
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MO DU LE_ I M PL E ME N TAT I ON 



SSINCLUDE NAMCHGR; /***** TERMINATOR ******/ 

(CHECK (EBROR)): 

TERMINATOR: PROC OPTIONS (MAI N) ; 

5SINCLUDE GEN EEC; 

5SINCLUDE PCBDCL; 

5bINCLUDE BEQRELD; 

5SINCLUDE RRMSG ; 

ON CHECK (ERROR) 

begin • 

IF (e£e0R 0} THEN DO; 

(NCCHECK (ERROR) ) : BEGIN; 

FIELD 1 = RELEASOfi; 

FIELD2 = ERROR; 

CALL PRIMITIVE RELEASE (AN YP-ROC /SEREOR, MESS AGE, 

ERROR) ; 

ERROR = 0; 

GO 10 START; 

* END; 

END ; 

END; 

DC1 P I NAME FIXED BINARY; 

DCI ERROR FIXED BINARY STATIC INIT (0) ; 

DCL (INVALID, TERM FLAG) bIT{1); 

START: 

DC FOB EVER; 

/*** GET TERMINATION MESSAGE ***/ 

CALL PRIMITIV E_REQUEST (ANYPROC, SEND JOB , MESSAGE , ERROR) ; 

/*** VERIFY THE MESSAGE ***/ 

CALL TERMINATION^ VALIDATOR; 

/*** VALID: THEN START TERMINATING ***/ 

TERM EL AG = TRUE; 

D O'"* WHILE (TERM FLAG) ; 

/*** SELECT THE PROCESS TO BE TERMINATED ***/ 
CALI TER M_S ELECT OR ; 

/*** LNSERT CODE TO DETERMINE OUTPUT FILES ***/ 
/*** RELEASE MESSAGE TO OUTPUT CONTROLLER ***/ 
CALL PRIMITIVE RELEASE (AN YPROC, $0U1FUT, MESSAG I , 

ERROR) ; 

/*** DESTROY THE PROCESS ***/ 

/* CALL PRIMITIVE^ DESTROY (PINaME/PROCV EC, ERROR) ; */ 

/*** RELEASE ERROR MESSAGES FOR ANY PROCESS 
QUEUED ON A RESOURCE JUST DESTROYED ***/ 
/******* INSERT CODE ******/ 

/*** FREE THE JOB QUEUE SPACE ***/ 

CALL PRIMITIVE RELEASE (ANYPROC, $INAME, MESS AGE , 

ERROR) ; 

END; 

END: 

TERMINATION VALIDATOR: PROC: 

/* T H I S~ SUBROUTINE VERIFIES THE JOB TERMINATION 
REQUEST; I.E., THE VALIDITY OF PROCESS ’ A 1 TO 
DESTROY PROCESS 'b'. V 

INVALID= FALSE; 

END TERMINATION VALIDATOR; 

TERM SELECT OR: T'RGC; 

/* THIS SUBROUTINE DETERMINES WHICH PROCESS OR 

MEMBER OF A PROCESS’S FAMILY IS TO EE DESTROYED 
FIRST. */ 

TERM FL/G=FALSE; 

END I EE'S SE I ECTOR; 

ENL TERMINATOR; 
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MODULE SPECIFICATION 



NAME: FILE_ MANAGER TYPE: PROCESS 

PAR AMETE ES 

INP UT OUTPUT T YPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME P Mh M I E RS PURPOSE 



Reguest Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



a) $Fileop - Semaphore used to 
identity messages for this 
process. 



Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Find Process X-Name, 

Piname Process I-Name, 

Error Parameter 



Device Resource X-Name, 
Directory Access Identifier, 
Process X-Name, 
Page Table Length, 
Page Tanle Vector, 
Priority. 

Interrupt Number, 
Located- Boolean 



a) $Error - Semaphore used to 
send messages to the Error 
Handler. 

b) $Intdev Semaphore used to 
send message to an inter- 
face process to identify a 
device internal name. 

c) $Rfilew - Semaphore used to 
release messages tc an in- 
terface process to perform 
a read or write operation. 

d) $Opr 10 - Semaphore used to 
sendee message to Operator 
System Communicator when 
replying to a message from 
Op-Sys-Comm. 

e) $Space - Semaphore used to 
send messages to the Tile 
Space Manager when a file 
is destroyed or when a de- 
vice is added or deleted. 

f) $Wait - Semaphore used to 
send a message to a process 
which sent an open-file 
message. 

g) $XXXXX - Semaphore used 
when specified in answer to 
a message received. 

Entry point to PCB Handler 
used to obtain the internal 
name of a process identiried 
by external name. 

This module is invoked tc get 
data which identifies a device 
interface process and which is 
required to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 



PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 
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PCEData 



BCBData 



RCBPUTQ 



Find 

I-Name 



Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions of the 
data stored as a vector Ji.e., 
Resource Access Vector, Page 
Table Vector, etc.). 



Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 



Resource 
Left/Rig 
Process 
Data Par 
Priority 
Message 
Data Par 
Error Pa 



I-Name, 
ht Queue, 
I-Name, 
ameter , 

Pointer , 

ameter, 

rameter 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 



Resource Type, 
Resourse X-Name, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 



Interrupt Interrupt Number, 
Enaoler Interrupt Save- 
Vector 



Interrupt Interrupt Number, 
Disabler interrupt Save- 
Vector 



This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 

This module is invoked to dis- 
able a specific or 
ail interrupts and saving the 
status of tne interrupts in 
a save-vector for enabling. 



Create 


Resource 


Type, 


RCB 


Resource 


X-Name, 




Resource 


Owner . 




Sz-Cnt r 


Parameter 




Access I 


dentif ier 



PCI Name, 

Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 

GETPCB Parent I-Name, 
Rgt-Sib I-Name, 
Process X-Narae, 
Priority , 

System Process ID, 
Init State Vector, 
Process .I-Name, 
Cyclic Process Id, 
Error Parameter 



Entry point to RCB Handler 
used to create an RCB cf the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; ana return the 
resource internal name. Mot 
all fields are used by each 
tyfe of resource. 



Entry point tc PCB Structures 
used to create a PCB for a 
process; enter data in the PCB 
fields; and return the process 
internal name. 



Destroy- Resource I-Name, 
RCB Process I-Name, 

Process Vector, 
Error Parameter 



This entry point to RCB hand- 
ler is used to destroy an RCB. 
All processes on the l(Cc queue 
are ldentili.ed and returned to 
the calling process so that an 
error message may be sent to 
the Error Handler lor each 
process in the list. 
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RCBGETQ Resource I-Name, 
Lext/Right Queue, 
Process I-Name, 

Q Data Parameter, 
Message Pointer, 
Q_Data Parameter, 
Found Boolean, 
Q_Status Boolean, 
Error Parameter 

RCB- Resource I-Name, 

Transfer- Left/Right Queue, 
Queue Process I-Name, 

From Q Status, 

To Q Status, 
Xiered Boolean, 
Error Parameter 

RCB-Find Resource I-Name, 
Lext/Right Queue, 
Find Operation, 
Queue position. 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



EXTERNAL CALLS MADE BY OTHER 
NAME PU RPO SE 

Not applicable for processes. 



This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified gueue 
for the indicated resource. 

The data stored in the gueue 
are returned if the process is 
found and the gueue status is 
also provided. 



This entry point to RCB Hand- 
ler is used to transfer a pro- 
cess from the gueue specified 
to the opposite gueue. The 
status of the To-Queue before 
transfer and Frora-Queue after 
transfer are returned. 

This entry point to RCB Hand- 
ler is used to determine gueue 
position of a process and put 
or get a copy of data. The 
process, position, or both may 
be specified tc select a spe- 
cific process, any process at 
the specified position or a 
specific process at a speci- 
fied position. 



MODULES 



DATA STRUCTURES USED 



NAME 


FIELD 


TYPE 


PURPOSE/VALUES 


Message 

Buffer 


— 


Based 


Dynamically allocated, pointer 
gualified structure used for 
passing messages. 




Releasor 


Integer 


Internal name of process 
releasing a message. 




Answer- 

Reguest 


Bit (1) 


Boolean indicating if answer 
required . 




Message- 

Semaphore 


I nteger 


Semaphore to be used in the 
answer. 




Bu fxer- 
Location 


Pointer 


Qualified I/O buffer contain- 
ing data read from a file or 
to be written into a file. 




Fieldl 


Integer 


a) $$OPCOM - Message from. 



Operator System Communica- 
tor . 

b) $$J. NTPC - Message from in- 
terface process. 

c) # $0 P E N F - Message to cpen 
a file. 

d) i>^READ or SSWRITE - Message 
to do a file read or write 
opera tion . 

e) liCLOSF - Message to close 
a tile. 

f) .S$DSfYF - Message to de- 
stroy a file. 
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Field2 



Integer 



a) 



b) 



c) 



d) 

!! 



$$OPRTR - 
reply to 
cess to a 
$$ADD or 
message t 
device an 
cess . 

File inte 
tying a f 
accessed 
operation 
##READ or 
ties type 
in a file 
$ $EOF - E 
Directory 



Operator message 
a request for de- 
restricted file. 
$*DELET - 3$CPC0M 



o 


add or 




del 


ete a 


d 


interf 


a 


ce 


pro- 


r 


nal nam 


e 


id 


enti- 


i 


le to b 


e 


cl 


csed. 


0 


n a rea 


d 


or 


writ 


t 


or aest 


ro v 


ed . 




## WRITE 




- D 


enti- 




access 


r 


equ 


ested 




open me 


s 


sag 


e . 


n 


d of fi 


1 


e r 


tad. 




entry n 


u 


mbe 


r . 



Field3 


Integer 


a) Record number to ne read 
from or written into. 

b) File length for files in 
the directory for the PCT. 


Field4 


Integer 


Device internal name identi- 
fied in $$INTPC message . 


Field5 


Integer 


a) $$TEMPF or $$PERKF - Iden- 
tified in SSINTPC messages 


Field6 


Integer 


a) ##SHRD or ##PRIV - Identi- 
fied in $ $INTPC messages. 


Char- 

Fieldl 


Char (8) 


File or device external name. 


Char- 

Field2 


Char (8) 


Pack, tape, cell, etc. (ECT) 
external name. 


Char- 

Field3-4 


Char (8) 


Not used. 



MO DiilE_D ASCRIPTION 

File Manager has been implemented to perform the standard 
file operations of opening, closing, destroying, reading 
from and writing into files. Creating files is performed by 
an independent module to prevent file creation when space is 
not available from interfering with the other file opera- 
tions. In addition, this process controls the allocation of 
files and prevents deadlocks using preemptive techniques; 
i.e., once a process has teen assigned access to a file if 
subsequent open requests cannot be satisfied immediately and 
a potential aeadlock exists, the process's files are sacri- 
ficed (can be allocated to other processes) until such time 
as all files required can be allocated concurrently. Inter- 
face processes and device RCB's are also created and 
destroyed oy this process. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGR; /***** FILE MANAGER ***«*/ 

(CHECK (ERROR) ) : 

FILE_MANAGER: PROC OPTIONS (MAIN) ; 

96INCLUDE SIMULTR: 

SIM_STAET (PROCESS_FILE_MANAGER) 

^INCLUDE GEN EEC; 

%INCLUDE REGRuLD; 

J6INCLUDF CASESIM; 

55INCLUDE RCBDCL; 

3TNf ' I1DF orprn* 

DCL ERRCB^EIXED BINARY INITIAL(O); 

DCL I PIXEL BINARY; 

LCL RC3NR FIXED BINARY; 

DCL PCTNAME CHAR (8) ; 

DCL NULP POINTER; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR -.= OV THEN DO; 

IIELD1 = RELEASOR; 

FIELD2 = ERROR; 

IF (ERROR = 11 2) THEN DO; 

ANSWER REQUEST = TRUE; 

MSG SEMAPHORE = $FILEOP; 

END; 

ELSE DO; 

ANSWER REQUEST = EALSE; 

MSG__SL"MAPHORE = 0; 

ErD ; 

(NOCHECK (ERROR)): 

BEGIN; 

ERROR = 0; 

CALL PRIMITIVE RELEASE (A NY PROC, TERROR , MESSAGE, 

ERROR) ; 

END; 

IF (ERROR -= 118) THEN GO TO START; 



^INCLUDE RRMSG; 

START: 

DC FOREVER- 

CALL PRl MIT IV E__ REQUEST (A NYPROC,$FILEOP, MESSAGE, ERROR) ; 
SIM^INTERR UPT_PT 

CALL MESSAGE_INTERPRETER (I) ; 
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D0_ ACTICN_OF CASE (I) ; 

CASE (1) : 

/* MESSAGE FROM OPERATOR SYSTEM COMMUNICATOR */ 
CALL OP COMM MSG HANDLER; 

ENICASE; 

CASE (2) : 

/* MESSAGE FROM DEVICE INTERFACE PROCESS 
PERFORM SUCH ACTIONS AS UP DATING THE 
MASTER FILE LIST, FILE DIRECTORY ON THE 
CRUM, PACK, TAPE, ETC., RELEASING MESSAGE 
TO STORAGE MEMORY MANAGER. */ 

IF (EIELD2 -«= SSEOF) THEN DO; 

/*** IF EXISTING FILE IS TEMPORAY THEN DELETE IT 
IT FROM THE DIRECTORY ELSE CREATE AN RCB */ 
IF (FIELD5 -»= $ STEMPF.) THEN DO; 

CALL PRIMITIVE RC EDATA (FIELD4 , *GET, *PCT NAM, 

PCT NAME, ERROR) : 

CALL CREATE RCB (#FILE , CHAR FIELD 1 , MY NAM E , 
FIELD37FIELD6,PCTNAME7FIELD4, * # AVAIL, 
##PERMF, RCBNR, ERROSi ; 

END ; 

ELSE DO; 

ANSWER REQUEST = FALSE; 

FIELD 1~= SSDIRDL: 

CALL PRIMITIVE RELE AS E (RELE ASCR, $RFI LEW , 

MESSAGE, ERROR) ; 

END; 

/*** g ET THE NEXT DIRECTORY ENTRY ***/ 

FI ELD 1 = SS DIKED ; FIELD2 = FIEID2 + 1; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (RELEASOR , $RFILEW , 

MESSAGE, ERROR) ; 

END; 



/*** EOF: CREATE AN RCB FOR THE PCT AND RELEASE 
A MESSAGE TO THE FILS SPACE MANAGER ***/ 



ELSE DO: 
FIELD 
CALL 

CALL 

CALL 



CALL 

FIELD 

CALL 

END 
FIELD 1 , F 
CHAR FIE 

= T 

ENICASE; 



1 = $$OPCOM; FIELD2 = $$DONE; 

PRIMITIVE RCEDATA (FIELD4 , #GET , #XNA ME , 

CHAR FIELE1 , ERROR) ; 

PRIMITIVE RCBDATA (FIELT54, #G£T, #PCTN AM , 

CHAR FI ELD2 , ERROR) ; 

CREATE RCB (*PCT r CHAR FIELD2 , MYN AM E, FI ELD3 , 
FIELD6 , ('“•) / FIEID4, (0) ,FIEID5, 
RCBNR, ERROR) ; 

PRIMITIVE RELEASE (ANYPROC, SOPS 10, MESSAGE, 

ERROR) ; 

1 = SS ADD ; FIELD2 = RCBNR; 

PRIMITIVE RELEASE (ANYPROC f $SP ACE, MESSAGE, 

ERROR) ; 

iELD2,FI2LD3, FIELD4, FIELD5, FIELD6 = 0; 

LD1 ,CHAR_FIELD2,CHAR_FIELBJ,CHAR_FIELI4 



C A SE ( 3) : 

/* MESSAGE FROM A PROCESS TO DO A FILE OPEN, 

CLOSE, DESTROY, READ, WRITE, ETC. *■/ 

CALI PI L E_OPER AT ION CONTROLLER; 

FNECASE; 



END OF CASES; 
END; 



SIM END 
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MESSAGE INTERPRETER: PROC (I) ; 

/* TJeiermine which process did a release on $filhop 

AND SET THE CASE STATEMENT INDEX */ 

DCL I FIXED BINARY: 

IF (MESSAGE -> FIELD 1 = $$OPCOM) THEN 1=1: 

ELSE IF (MESSAGE -> FIELD1 = 33INTPC) THEN 1=2; 
ELSE 1=3; 

RETURN; 

END MESSAG E_IN I ERPRETER ; 

OP COMM MSG HANDLER: PROC: 

~/* TRIS bUEROUTINE PERFORMS SUCH FUNCTIONS AS CREATING 
OR DESTROYING A DEVICE RC3 AND AN INTERFACE PROCESS , 
UP DATING THE PACK, TAPE, ETC MOUNTED ON THE DEVICE, 
ANE DETERMINING ACTION TO BE TAKEN ON A REPLY TO A 
USER'S REQUEST FOR FILE OWNERSHIP ON A SHARED FILE*/ 
DCL (RXNAME, PXNA ME) CHAR (8) : 

DCL (S OR P, NRPGS, PRI, PINAME, RINAME, CHILD, INTEND, INDX) 
FIXED BINARY; 

DOT V A T X RTT Ml • 

DCL PGTABVEC ( 1) FIXED BINARY; 

DCL STATE VEC(IO) FIXED BIN A R Y (3 1 , 0) ; 

DCL RE SVEC/SEM L LIMIT : PCT U LIMIT) BIT (2) ; 

DCL EUM (16) BITH); 

DCL TEMP PTR POINTER; 

DCL II FIXED BINARY INII(1); 

/* DETERMINE ACTION TG BE PERFORMED AND SET INDEX */ 
IF (FIFLD2 = $$OPP.TR) THEN INDX = 1; 

ELSE IF (FIELD2 = S3 ADD) THEN INDX = 2; 

ELSE IF (FIELD2 = 33DELET ) THEN INDX = 3; 

ELSE ERROR = 309; 

DO_ ACTION OF CASE (INDX); 

CASE (If: /* MESSAGE FROM OPERATOR */ 

/* ADD CODE */ 

ENECASE; 

CASE (2): /* ADD A DEVICE, INTERFACE PROCESS AND 

PCT IF APPLICABLE */ 

RXNAME = CHAR_FIELD1 ; 

/*** GET DATA REQUIRED TO CREATE THE INTEREACE 
PROCESS AND DEVICE RCB FROM THE DEVICE 
DIRECTORY. ***/ 

CALL DEVICE DIRECTORY (RXNAME , S_OR P,1?XNAM2, 
NRPGS, PGTABVEC ,PRI,INTRNR, VAIX) ; 
IF fVALX = FALSE) THEN DO; 

FIELD2 = 33FAIL ; 

CHAR FIELD2 = 'BAD NAME'; 

C ALL — PRIMITI VE RELEASE (ANYPROC, $OPR 10, 

MESSAGE, ERROR) ; 

END ; 

ELSE DO; 

/*** CREATE INTERFACE PROCESS ANE SET FAMILY 

LINKAGE. ***/ 

CALL PRIMITIVE PCBDAT A (MYNAME,flGET , FCHILD 

, CHILD, ERROR) ; 

STATE V EC ( 1 ) = PGTABVEC (1); 

STATE“VEC (2) = 1; 

CALL GETPCB (HYNAME, CHILD, EXNAME , PFI , TRUE, 
STATE VEC r PINAHE, (0) ,JtRROR) ; 
IF (CHILD 0) THEN 

CALL PRIMITIVE PCBDAT A (CHILD , a)P U I , 

“ o) L F T S I B , l- 1 N A M E , L R R C R ) ; 
CALL PR I M I TIV E_PC BD AT A (MYNA ME , P UT , 

a) C 1 1 j L D , P I N A ri L , E I. R C R ) ; 
CALL CREATE R C D ( # D E V T C E , R X U A h K , P T N A K E , ( 0 ) 
,S OR P , C H A R FIELD2 , INTKNK, (U) , (0) , 
RTNAMF, EKROR7 ; 
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/* SETUP RESOURCE VECTOR EOR PINAME */ 
RES V£C = 1 00 * B ; 

RES V EC (RINAME) = ##A-CCES: 

RESVEC (SFILEOP) = tf#ACCES; 

RESVEC (SERROR) = ##ACCES; 

RESVEC (SRFILEW) = ##ACCES; 

RESVEC (SWAIT) = ##ACCES: 

RESVEC (SINTDEV) = ##ACCES; 

RESVEC (SINTRPT) = ##ACCES; 

RESVEC ($OBUFF) = ##ACCES; 

RESVEC ($IBUFF)_ = ##ACCES; 

CALL PRIMITIVE PCBD AT A (PIN AME. a)PUT , 

©RESVEC, SUM L LIMIT, PCT U LIMIT, 
RES VEC-ERROP) J 

CALL PRIMITIVE PCBDATA (PINAME, a)PUT , 

£DBRMVEC,l7,NRPGS, PGTABV EC, ERROR) ; 



/*** GET MESSAGE BUFFER FOR THE' PROCESS ****/ 
ALLOCATE MESSAGE BUFFER SET (TEMP PTR) ; 
CALL PRIMITIVE PCBDATA (PINAME, 5) PUT, 

”*3MSGPTR,TEMP PTR, ERROR); 



/*** RELEASE MESSAGE TO THE PROCESS IDENTIFYING 
THE DEVICE INTERNAL NAME. ***/ 

FIELD1 = RINAME; 

CALL PRIMITIVE RELEASE (PINAME , $1 NTDEV , 

MESSAGE, ERROR) ; 

/*** ENABLE THE DEVICE INTERRUPT ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (INTRNR , 

DUM) ; 

NULP = NULL: 

/*** ENTER THE PROCESS ON THE READY 'A 1 QUEUE */ 
CALL RCBPUTQ (#REDYA,#OS, PINAME, (0) ,ERI, 
NULP, (6) , ERROR) ; 

IE (CHAR EIELD2 = 'NO MOUNT M THEN DC: 

/* RELEASE MESSAGE TO OPERATOR SYSTEM COMM. */ 
FIELD1 = $$OPCOM ; 

FIELD2 = $$DONE ; 

CALL PRIMITIVE RELEASE (ANYPRCC , $ CPR IC 

, MESSAGE, ERROR) ; 

END; 

ELSE DO; 

/*** SEND MESSAGE TO INTERFACE PROCESS TO READ 

THE FIRST DIRECTORY ENTRY. ***/ 

FIELD 1 = $ $ DIRRD ; 

FIELD2 = 1; 

ANSWER REQUESI = TRUE; 

call primitive release (piname, $bfilew, 

MESSAGE, ERROR) ; 

END ; 

END; 

ENDCASE; 

CASE (3) : /* DELETE A DEVICE AND DESTROY THE 

INTERFACE PROCESS */ 

CALL FIND I NAME (#DEV ICE, CHAR FIELD 1 , RI NAME , 

ERROR) ; 

CALL PRIMITIVE RCEDATA (RINAME, i)G£T , #DINAME, 

J.NTRNR, ERROR)- ; 

CALL PRIMITIVE INTERRUPT D I S E N A ELE 3 (INTRNR, 

DUM) ; 

/* DETERMINE FILES ASSOCIATED WITH THE 
DEVICE AND THE PCT; DESTROY RCE'S */ 

ENDCASE: 

END_OF CASES; 

END OB COati MSG HANDLER; 
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FILE OPERATION CONTROLLER: PROC; 

DT:L (DATA, DuMMY, POSIT, FSIZE, INAME) FIXED BINARY; 

DCL (FI NAME , PINAME, READ WRITE. J) FIXED BINARY; 

DCL NO OP FIXED BINARY INITIAL (0) ; 

DCL EX'S A ME CHAR (8) ; 

/*** DETERMINE ACTION AND SET INDEX ***/ 

IF (MESSAGE -> FIELD 1 = $$OPENF) THEN J = 1; 

ELSE IF ((MESSAGE -> FIELD 1 = SSREADV | 

(MESSAGE -> FIELD 1 = SSWRITE)) THEN J = 2; 
ELSE IF (MESSAGE -> FIELD 1 = SSCLOSF) THEN J=3; 
ELSE IF (M ESS AGE->F'I LID 1 =$$DSTYF) THEN J=4; 
ELSE ERROR = 110; 



DO_ACTICN_OF CASE(J) ; 

CASE (1) : /* OPEN FILE: SHOULD INCLUDE SUCH TESTS 

AS; LEUAL FILE, ACCESS, DEVICE STATUS, 
READ OR WRITE OPERATION, IF WRITE AND 
FILE OPEN C AN 1 T BE SATISFIED AT THIS 
TIME THEN CHECK FOR POTENTIAL DEADIOCK*/ 






ENDCASE 



GET FILE INTERNAL NAME ***/ 

FXNAME = MESSAGE -> CHAR FIE1D1; 

CALL FIND INAME (# FILE, FXNAME, FI NAME, ERROR) ; 
CALL FI LE“AL LOCATOR (FIN AM E , # #OPEN , RELEASOR , 

FIELD2) ; 



CASE (2) 



ENDCASE 



/* READ/WRITE OPERATION: CHECK FILE 

EXISTANCE, ACCESS, AND RELEASE MESSAGE 

TO THE APPROPRIATE DEVICE INTERFACE 

PROCESS */ 

F INAME = FIELD2 

./* CHECK IF' MESSAGE RELEASOR DID AN 

OPEN ON THIS FILE. -*/ 

CALL RCB FIND (F INAME, fiLEFT, #F ND OP 1, POSIT, 
RELEASOR, DATA, DUMMY, EftRCR) ; 

IF (POSIT = 0) THEN ERROR = 106; 

/* VERIFY IF OPERATION ( RE AD/ WRITE) 

REQUESTED IS LEGAL. */ 

IF ( (FIELD 1 = # WRITE) & (DATA = # #EE AD) ) 

THEN ERROR = 116; 

/* GET DEVICE INTERNAL NAME AND THEN 
THE INTERFACE PROCESS'S INTERNAL 
NAME. V 

CALL PRIMITIVE RCBDATA (FI NAME , #GET , #DIN AME, 

DAT A, ERROR) ; 

CALL PRIMITIVE RCBDATA (DAT A , #GET , * OWN ER , 

DAI A, ERROR) ; 

/* RELEASE A MESSAGE TO THE INTERFACE 
PROCESS TO PERFORM THE OPERATION. */ 
FIELD4 = RELEASOR; 

CALL PRIMITIVE RELEASE (DAT A , SRFILE W , 

MESSAGE, ERROR) ; 



CASE (3) : /* CLOSE FILE: VERIFY FILE EXISTENCE, 

REMOVE PROCESS INAHE FROM FILE RCD , 

CHECK FOR OUTSTANDING OPENS, IF ANY 
SELECT ONE OR MORE AND RELEASE A MESSAGE 
TO THOSE PROCESSES, IF NONE CLOSE THE 
FILE. */ 



ENDCASE 



FINAME = MESSAGE -> FIELD2; 

PINAME = McSSAGu -> RELEASOR; 

CALL FILE ALLOCATOR (FINAME, LOSE, FINAME, 

NO UP) ; 



112 




CASE (4):; /* DESTROY FILE: PERFORM TESTS ON LEGAL 

FILE, ACCESS , AUTHORIZED TO DESTROY, 

IF ANY PROCESSES ARE USING OR WAITING TO 
USE THE FILE, RELEASE A MESSAGE TO THE 
SUPERVISOR FOR EACH PROCESS, DESTROY 
FILE RCB, UP DATE MASTER FILE LIST, UP- 
DATE FILE DIRECTORY, AND SEND MESSAGE TO 
STORAGE MEMORY MANAGER. */ 

DCL PRO VEC (0 : PCB LIM) EIT(1) 

INITIAL 7(PCB LIM +1) (1) * 0 ' B) ; 

FINAME = FIELD2* — 

/*** GET SIZE OF THE'fILE AND PCT NAME ***/ 

CALL PRIMITIVE RCBDATA (FI NAME, #GZT , it C NT SZ, 

FSIZE, ERROR) : 

CALL PRIMITIVE RCBDATA (FI NAME, #GET , #PCTNAM, 

FXNAME, ERROR) ; 

CALL FIND INAME(#PCT, FXNAME, INAi-lE, EfRCR) ; 
CALL DESTROY RCE (FINAME, RELjiASOR, PRO VEC, 

ERROR) ; 

/* RELEASE MESSAGE TO 
EACH PROCESS THAT 



IF 



THIS FILE. 
(PRO_VEC (0) ) 



SUPERVISOR FOE 
WAS QUEUED UP CN 



THEN 



V 



DO I _ = 1 'TO' PCB LIM; 

IF (PRO VEC (I) ) THEN 
FIELD3 = I: 

ERROR = 118; 



/ : 



END; 
GET SPACE 
CALL 



DO; 



END; 



[ */ 

[_sz. 



AVAILABLE IN PCT AND UPDATE IT 
PRIMITIVE RCBDATA (INA ME , #GET , #CNT 

DATA, ERROR) ; 

DATA = DATA + FSIZE; 

CALL PRIMITIVE RCBDATA (I NAME, #PU I, #CNI SZ, 

DATA, ERROR) ; 



/* RELEASE MESSAGE TO UPDATE DIRECTORY */ 

EIELD1 = $$D IRDL ; 

FIELD2 = FINAME; 

FIELD3 = FSIZE; 

CALL PRIMITIVE RCBDATA (IN AME , #GET , #DI NAME, 

FINAME, ERROR) ; 

CALL PRIMITIVE RCBDATA (FI N AMF , £GET , £0 WNER, 

FINAME, ERROR) ; 

CALL PRIMITIVE RELEASE (FINAME, SRFILEW , 

MESSAGE, ERROR) ; 



/* INFORM SPACE MANAGER OF THE 
SPACE AVAILABLE FOR FILES. 
FIELD1 = $ $ ADD ; 

FIELD2 = I NAME; 

FIZLD3 = FSIZE; 

CALL PRIMITIVE RELEASE (AN 

ME 



ENECASE; 



CHANGE 

V 



YPROC, $S 
SS AGE, ER 



IN 



PAC 

ROR 



E 

) 



/ 



END OF CASES; RETURN; 

END FlI E_I5P ERA TION_C CUT ROLLER ; 
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FILE ALLOCATOR: PROC (FIN ANE, OPERATIO N, PI NAME , TYPE) ; 

✓ *“* Hi!.** * * * * * * * * ********* ***** 

THIS S U EROUTI N 2 DETERMINES IF A PROCESS CAN HAVE ACCESS 
TO A FILE, IF ACCESS IS DELAYED, DOES A DEADLOCK EXIST 
OR CAN IT OCCUR; IF A FILE IS CLOSED, ARE THERE OUT- 
STANDING REQUESTS FOR THE FILE AND IF SO SATISFIES 
THEM: ETC. *******/ 

DCL (OPERATION, FOUND, Q EMPTY, BDATA) BIT(1); 

DCL DUMMY FARM FIXED~BINARY INITIAL (0) ; 

DCL • BUMEY-PTR POINTER ; 

DCL (FINAME,PINAME,TYPE,FSTAT,PRI,TPRI,TSTAT, 

PRIVATE , DATA) FIXED BINARY; 

DCL IOEELEM FIXED BINARY INITIAL(I); 

DCL FILE (1) BIT (2); 

DCL I £ I T 2 Eli (2) ; 

DCL CEATA. CHAR (8) ; 

DUMMY PTR = NULL; 

FOUND'"- FALSE; 

CALL PRIMITIVE PCBDAT A (PI NAM E, &GET , SR ES VEC, FIN AME , 

FINAME, FILE, ERROR) ; 

CALL PRIMITIVE RCBDATA (FINAME, ffGET S CH_P, PRIVATE , 

ERROR) ; 

IF (OPERATION = ftftOPEN) THEN DO; /* OPEN FILE */ 

/*** CHECK ACCESS AUTHORIZATION ***/ 

IF (FILE ( 1 ) -»= ftftACCES) THEN DO; ERROR = 109; RETURN; 

END ; 

/*** CHECK IF THE FILE CAN BE OPENED ***/ 

CALL PRIMITIVE RC BDATA (FINAME, # GET , #DSTAT , BDATA , 

ERROR) ; 

IF (BDATA = # # HOLD) THEN DO; ERROR=113; RETURN; END; 
CALL PRIMITIVE PCBDATA (PI NAME, a) GET, SPRIRTY, PEI , 

ERROR) ; 

/*** ASSIGN THE FILE TO THE PROCESS ***/ 

FILE ( 1 ) = ##ACQ3D; 

CALL PRIMITIVE PCBDATA (PI NAME, o/PUT , aJRESVEC, FINAHE, 

FIN AME, FILE, ERROR) ; 

IF ((TYPE = # # WRITE) & (PRIVATE = ##SHRD)) THEN DO; 
/*** WRITE ACCESS INTO SHARED FILE: CHECK 

OWNERSHIP ***/ 

CALL PRIMITIVE RCBDATA (FINAME, #GLT , ffOWNER , DATA , 

ERROR) ; 

IF (DATA i= PINAME) THEN DO: 

/*** NOT OWNER: PUT ON QUEUE AND RELEASE ERROR 
MESSAGE TO THE OPERATOR ***/ 

CALL RCBPUTQ (FINAME, ftRIGHT, PINAME, DUMMY PARM, 
PRI, DUMMY PTR, ##WRITH, ERROR) ; 

ERROR = 112; RETURN; END; 

/*** AUTHORIZED ACCESS: UPDATE WRITE COUNTER **/ 
CALL PRIMITIVE PCBDA T A (PIN AM E, 3PUI , coF WCNT 5 , D AT A , 

ERROR) ; 

END; 

CALL PRIMITIVE PCBDATA (PI NAME, a)GET , 3FSTAT , TS TAT , 

ERROR) ; 

IF ( TSTAT = ft # SACK ) THEN DO; 

/*** PROCESS IN SACRIFICE STATE ***/ 

CALL DEADLOCK SETTER (FINAME, PI NAME , PRI , TYPE , TSTAT, 

PRIVATE) ; 

RETURN; END; 

IF ((TSTAT = # ft RE ADR) S (TYPE = ft#WRITE) & 

(PRIVATE = ff&SHRD)) THEN 

/*** UPDATE PROCESS'S FILE ACCESS STATUS ***/ 
CALL PRIMITIVE PCBDATA ( PIN A M E, a PUT , cDFST A T , # # WRITE , 

ERROR) ; 

/*** DETERMINE IF THE FILE IS AVAILABLE ***/ 
CALL PRIM IT IV E_RC BDATA (FINAME, #GET, ftOEILE, FSTAT , 

ERROR) ; 

IF (FSTAT = ft # A V A I L ) THEN DO; 

/*** fjZ'V AVAILABLE: ASSIGN THE PROCESS, ENTER 

PROCESS IN THE QUEUE AND RELEASE A MESSAGE 

# * 
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CALL PRIMITIVE_RCBDATA (FINAME, #PUT, #OFILE ,TY£E, 

ERROR) ; 

CALL RCBPUTQ (FINAME, *LEFT, PINAME, DUMMY PABM.ERI, 
DUMMY PTR, TYPE, ERROR) ; 

CALL PRIMITIVE RCBl) ATA (PINAME , #GET , #XNAME , CD AT A, 

ERROR): 

MESSAGE -> CHAR FIELD1 = CDATA; 

MESSAGE -> FIELD1 = FINAME: 

CALL PRIMITIVE RELEASE (PIN AM E, MS G SEMAPHORE , 

~ MESSAGE, ERROR) ; 

END; 

ELSE DO; 

/*** FILE ALL READY OPENED ***/ 

IE ((TYPE = #£ WRITE) J (TYPE -.= FSTAT) ) THEN DO; 
/*** ACCESS NOT AVAILABLE AT THIS TIME ***/ 

CALL DEADLOCK SETTER (PINAME, PINAME, PRI , TYPE, 

TSIAT, PRIVATE) ; 

RETURN; END; 

/*** ACCESS MAY BE AVAILABLE; CHECK OUTSTANDING 
OPEN QUEUE AND PERMIT THIS OPEN IF QUEUE 
IS EMPTY OR THE PRIORITY OF THIS PROCESS 
IS GREATER THAN THE PRIORITY OF THE PROCESS 
ON TOP OF THE QUEUE ***/ 

CALL RCB_FIND (FIN AM fi, t RIGHT, #FNDOP5 , TOPE LEM, 

DUMMY PARM, DUMMY P ARM,TPRI , FRRCR) ; 

IF (PRI < TPRI) THEN 

CALL RCBPUTQ (FINAME, # RIG HT , PI N AHE , DUM M Y FARM, 
PRI, DUMMY PTR, TYPE /ERROR) ;“ 

ELSE DO; 

CALL ECBPUTQ (FINAME, #LEFT, PINAME, DUMMY PABM, 
PRI/DUMMY PTR, TYPE, ERROR) T 
CALL PRIMITIVE RCBDATA7PI NAME , #GET , #XN AME , 

CDATA, ERROR) ; 

MESSAGE -> CHAR FIELD1 = CDATA; 

MESSAGE -> FIELD 1 - PINAME; 

CALL PRIMITIVE RELEASE (PINAME , MSG SEMAPHORE, 

MESSAGE, ERROR) ; 

END ; 

END; 

RETURN; 

END ; 



ELSE DO; 

/if.** R 

D 

0 

IF ( (FILE ( 1 ) 
IF ( FILE ( T) 
CALI RCBG 

IF ((-.FOUND) 
CALL RCBG 

IF ( ( (DATA = 
(TATA = 
(PRIVAT 
CALI PRIM 

IF (DATA 

TBIT2 = FILE 
CALL PRIMITI 



IF 

CALL PrIHITI 



( (Q EMPTY 
T l EH BETU 



DUMMY FARM = 
CALL RESOLVE 
E N D ; 
RETURN ; 

END FILE , A1LOCAT 



/* OPERATION IS 
EKOVE THE PROCESS FROM 
ETERMIN E IF ANY OUTSTA 
PEN CAN BE SATISFIED 
= » # ACCES) I (FILB(1)=ir 
= #tr ACQRD) THEN 
El Q (FINAME / #LEFT,PIN AI' 
DUMMY PTR, DATA, FOU 
I (FILE (7) = # # S A C R F ) 

ETQ (FINAME, #RIGHT,PINi> 
DUMMY PTR, DATA, FCU 
## WRITE) 1 (DATA = #v 
fcffWRITA) | DATA = # >r 
E = **SHRD) ) THEN DO ; 
ITIVE PCBDATA (PINAME, J 
ERROR); 

= 0) THEN CALL PRIMITI 
a)PUT , a)FST AT , 
(1) ; FILE (1) = ## ACC..' 

VE PCBDATA (PINAME, a)RUT 
FINAME, FILE 
= FALSE) 1 (-.FOUND) | 
R 1J * 

VE * RCbDATA (FINAME, # PUi 
ERROR) ; 

0 ; 

D E A DLOC K ( F I N A M E , f) U M K Y 



E */ 

AND 

ESTS FOR 
***/ 

# NOACC) ) THEN RETURN; 



CLOSE FIL 
THE QUEUE 
NDING REQU 



E, DUMMY PA 
ND , Q EMPTY 
) THEN 
ME, DUMMY P 
ND,Q EMPTY 
WRIl'H) j 
WRITS)) o 



RM, 

, ERRCR) ; 
ARM, 

, ERRCR) ; 



GET, aJFWCNTB, DATA, 



VE PCBDATA 
# #3 FAD, ERR 

, a)RESVEC,F 
,ERROR); 
(T3IT2 = 



(PINAME, 
OR) ; 



INAMF, 
w^SACRF) ) 
, #OFILE,#Jf AVAIL, 



_ P A R M ) 



Ox* ; 
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RESOLVE DEADLOCK: PROC (RCBN R , EXEMPT PRO) ; 

/if. if%ififitfififif3fifififififif’^. if ififififif if if if if if 

THIS SUBROUTINE TESTS IF ANY OUTSTANDING OPEN REQUESTS 
CAN EE SATISFIED, IF A SACRIFICE HAS OCCURRED AND THE 
FILE IS AVAILABLE, CAN THE PROCESS'S SACRIFICED FILES 
EE BE-ASSIGNED, ETC. *********/ 

DCL (STARTING, RQ ST AT, LQ ST AT , XFERED) BIT (1) ; 

DCL (ELEM, RCBNR, ?INAM, DATA, PRI,FSTAT, DUMMY PARM, 

POSIT, EXEMPT PRO) FIXED BINARY; 

DCL CDAT A CHAR(8f: 

DCL FILES (FILE L LIMIT FILE U LIMIT) EIT (2) ; 

STARTING = TRUE! “ 

ELEM = 1: 

DO FGEEVER; 

TOP: 

/ *** GET THE TOP ELEMENT ON THE OUTSTANDING 

QUEUE ***/ 

CALL RCB FIND (RCBNR, #RIGHT, #FNDOP5, ELEM, PINAM, DATA, 
PHI, ERROR) ; 

ELEM - ELEM + 1 * 

IF (DATA = 0) THEN RETURN; /* R„QUE IS EMPTY */ 

IF ((DATA = ##READ) | ((DATA = ##WRITE) S STARTING)) 
THEN DO; /* OPEN REQUEST NOT SACRIFICED 

TRANSFER TO OPEN QUEUE AND 
RELEASE MESSAGE TO PROCESS */ 

STARTING = FALSE: 

CALL RCB TRANSFERQ (RCBNR, BRIGHT, PINAM, RQ STAT, 

LQ STAT, XFERED , ERROR) T 

CALL PRIMITIVE RCBD AT A (RCBNR , * PU T , #OFILE , D AT A , 

ERROR) ; 

CALL PRIMITIVE RCBD AT A ( RCBNR , # GET , fcXNAME , CD AT A , 

ERROR) ; 

MESSAGE -> CHAR FIELD1 = CDATA; 

MESSAGE -> FIELD 1 = RCBNR; 

CALL PRIMITIVE R2Lii ASE (PINAM , $ W AIT , MESS A GE , E BRGR) ; 
IF ( (DATA=##WRIIS) | (RQ STAT=#i»CLOSE)) THEN RETURN; 
END ; 

ELSE DO; /* OPEN REQUEST SACRIFICED */ 

IF (-STARTING & (- ( (DAT A= ## RE ADA) | (DATA= # #RE A DS) ) ) ) 
THEN RETURN; 



/* TEST SACRIfICED OPEN REQUESTS FOE 
READ OR WRITE IF NO TRANSFER WAS 
MADE ABOVE; ELSE ONLY TEST READS. */ 



IF 



( (DATA 
DO; 
CALL 



-= #*WRITH) 1 (PINAM -= EXEMPT_PRO) ) THEN 



PRIMITIVE PCBDATA (PIN AM , g)GET , 3RES VEC , 

FILE L LIMIT, FILE U LI MIT , FILES , ERROR) ; 
DO I = FILE~L’"LIMIT TO FILE U LIMIT: 

IF ( (FILED (I) = #*SACRF) & 1I-=RCENR) ) THEN DO; 
/* I IS AN RCB INTERNAL NAME FOR WHICH 
PROCESS PINAM DID AN OPEN REQUEST V 
CALL PRIMITIVE RCBDATA (I, #G£T,#0FILE,F SI AT, 

" ERROR) ; 

RCB FIND (I, # RIGHT, #IHDOPl,DUMM 



CALL 

PI NAM, DATA, DUMMY' PARM 
IF ( (FSTAT = ## WRITE) j (DATA = #^W 
DATA = # # W R I T A ) | (DATA = tffcWR 

THEN IF (STARTING) T 
ELSE RETURN: 



Y PARE, 
.ERROR) ; 
HITS) | 
ITH) 

HEN GO TO TOP; 



END; 



END; 
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END: 
END RB 



END 



/* GOT HERE - — TRANSFER THIS PROCESS'S 
OUTSTANDING OPEN REQUESTS AND RELEASE 
MESSAGES TO THE PROCESS WHEN REQUIRED 

^ / 

ECL IDATA FIXED BINARY; 

ESTAT = # # READS ; 

DO I = FILE L LIMIT TO FILE U LIMIT; 

IF (FILES'^ = # #S ACRF) THEN DO; 

CALL RC3 TRANS FE RQ (I.#RIGHT / PINAM / RQ ST AT , 

LQ ST AT , X f ERED ,E RHOR ) ; 

CALL RCB FIND (I, # LEFT7# FNDOP 1 , POSIT, PINA.M, 
DATA, PRI, ERROR) ; 

IF ((DATA = # #RE ADA) J (DATA = ##READS) ) THEN 
IDATA = # #RE AD ; ELSE DO; IDATA = ##WBITE; 

FS'TAT = ## WRITE ; END; 

CALL PRIMITIVE RC EDAT A (I y ff P UT , #OFILE , ID ATA , 

ERROR) ; 

CALL RCB FIND (I., # LEFT ,# FNDOP'4, POSIT , PIN AM , 
IDATA f PRI , ERROR) ; 

IF ((DATA = ##READA) | (DATA = ##WRITA) ) THEN 
DO; 

CALL PRIMITIVE RCB DATA (I,#GET,#XNAME, 

CDATA, ERROR) ; 

MESSAGE -> CHAR FIELD 1 = CDATA; 

MESSAGE -> FIELD 1 = I; 

CALL PRIMITIVE RELEASE (PINAM, $ WAIT, 

MESSAGE, ERROR) ; 

END ; 

FILES (I) = ## ACQRD; 

END; 

END; 

CALL PRIMITIVE PCBDATA (PIN AM , fl)PUT,fi)R2S VEC , 

FILE L LIMIT, FILE U LI MIT, FILES , ERROR) ; 
CALL PRIMITIVE PCBD AT A (PIN J'd , a) P UT , d)FST A T , F ST AT , 

ERROR) ; 

END; 



3CLVE_ DEADLOCK; 
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DEADLOCK'S ETTER: PROC (FI NAME, PI NAME, PRI , T YP E, STAT , 

SHAR PRI V) ; 

/* ********************** * * * * * 
THIS SUBROUTINE TRANSFERS ALL OF THE FILE OPEN REQUESTS 
FOR THE PROCESS (PINAME) 10 THE OUTSTANDING QUEUE AND 
SETS THEIR STATUS TO # #R EADH OR ##WRITH ACCORDINGLY. 

IF A FILE BECOMES AVAILABLE , DEADLOCK RESOLVER IS 
INVCKED ***/ 

DCL SEAR PRIV FIXED BINARY: 

DCL (FI NAME. PI NAME, PRI , T Y PE, STAT) FIXED BINARY, 

CAS INDX FIXED BINARY ( 5 ) , 

(LQSTAT, RQSTAT, TRANS) EIT(1) , 

(OP,POS,FSTAT,C?RI, DATA} FIXED BINARY, 

CHEKK (FILE L LIMIT: FlLE U LIMIT) BIT(1), 

LUMMY PARK FlYED BINARY INIT (0) , 

BUM M Y~PTR POINTER ; 

DUMMY^PIE = NULL; 

/* DETERMINE NECESSARY ACTION */ 

IF (SHAR PRIV = ##PRIV) THEN 0?=1: ELSE OP = STAT: 

IF ((SHIR PRIV = ##SHRD) & ( TYPE = # # WRITE) ) THEN DO; 

CALL PRIMITIVE PCBDAT A (PINAM E, 2GET , <LF WCNTR , DAT A , 

ERROR) ; 

DATA = DATA + 1; 

CALL PRIMITIVE PCBDATA (PINAME, cDPUT , SFKCNTH , DAT A, 

ERROR) ; 

END; 

DO_ACTION_OF CASE (OP); 

CASE (1) : /* PROCESS HAS NOT OPENED A SHARED FILE ON 

A WRITE V 

IF (TYPE =##READ) THEN CAS INDX = 1; 

ELSE CAS INDX = 2; 

ENCCASE; 

CASE (2): /* PROCESS HAS OPENED A SHARED FILE ON A 

WRITE AND IS NOT CURRENTLY SACRIFICED */ 
CAS INDX = 2; 

ENECASE; 

CASE (3): /* PROCESS IS CURRENTLY SACRIFICED */ 

CAS INDX = 3; 

ENECASE; 



END_CF_CASES; / 

D0_AC1I0N__0? CASE (CAS_INDX) ; 

CASE ( 1 ) : /* READ ACCESS REQUESTED - NO SACRIFICE 
CONDITION 



CALL RCBPUTQ (FINAME, #RIGHT, PINAME, DUMMY PARM 
PRI, DUMMY_PTR, TYPE, ERROR) 



V 



ENECASE; 



CASE (2): /* SACRIFICE ALL OF THIS PROCESS* FI1ES */ 
BEGIN; 

DCL FILES (FILE L LIMIT : FILE U LIMIT) BIT (2) ; 
CALL PRIMITIVE PCEDATA (PIN AMT . aGET ,o)R ES V EC , 

FILE L LIMIT, FILE U LIMIT , FILES , "ERROR) ; 
DO I = FILE I LIMIT TO FILE U LIMIT; 

CHEKK (I) = FALSE; ~ ~ 

IF ( FILES (I) = # # ACQR D) & (I -*= PINAME) ) 

THEN DO; 

FILES (I) = 4 tSACRF; 

CALL R CB_ T R A N S FE R Q (I, ir LEFT, I J I NAME, LQSTAT, 
R QS I A T,TR/i NS, ERROR) ; 
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/* RESET DATA IF THE OPEN QUE IS EMPTY 

AMD SET CHECK TO INDICATE THE FILE MAY 
BE REASSIGNED */ 

IF (LQSTAT = ##CLOSE) THEN DO; 

CALL PRIMITIVE RCBDATA (FINAME, it PUT , 
#OIILE , #¥AV AIL , ERROR) ; 

DATA = 0 • 

CALL PRIMITIVE RCBDATA (FINAME, #PUT , 
¥OWN£R, DATA, ERROR ) ; 

CHEKK(I) = TRUE; 

END: 

CALL RCB FIND (I,#RIGHT, # FN DOP 1 , PO S , PIN AME , 
FSTAT, CPRI, ERROR): 

/* CHANGE THE PROCESS* OPERATION STATUS 
ON THE QUEUE, IF NECESSARY */ 

IF / (FSTAT > 0) & (FSTAT <=2) ) THEN DO; 

DO_ACIION_OF CASE (FSTAT) ; 

CASE ( 1 ) : /* CURRENTLY BEAD */ 

IF (TRANS) THEN FSTAT =##READS; 

ELSE FSTAT =# #R EADA ; 

ENDCASE; 



CASE (2): /* CURRENTLY WRITE */ 

IF (TRANS) THEN FSTAT = ##WRITS; 
ELSE FSTAT = ##WRITA; 

ENDCASE; 

END OF CASES; 

CALL RCB FIND (I, BRIGHT, #*NDOP2 ,POS , 

PINAME, FSTAT, CPRI , ERROR) ; 

END; 

END; /* END IF ACQUIRED */ 

END; /* END DO LOOP */ 



/* SET THE PROCESS* STATUS TO SACRIFICED */ 
CALL PRIMITIVE PCBDATA (PIN AME , 3 PUT , a)FST AT , 

# # S ACR , ERROR) ; 

CALL PRIMITIVE PCBDATA (PI NAME , a)PUT, iAP.ESVEC, 
FILE L LIEU , FILE U LIMIT , FILES , ERROR) ; 
/* NOW ENTiriHfi FILE TO EE OPENED IN 

SACRIFICE STATUS - ANSWER REQUIRED */ 

GO TO CASE (3) ; 

END; 

ENECASE; 



CASE (3): /* ENTER THE FILE TO BE OPENED IN SACRIFICE 
STATUS, ANSWER REQUIRED */ 

IF (TYPE = #*READ) THEN FSTAT =*#RZADA; 

ELSE FSTAT = ##WRITA* 

CALL RCBPUTQ (FINAME, BRIGHT, PINAME, DUMMY FARM, 
PHI, DUMMY PTR, FSTAT, ERROR) T 
DCL FILES (1) BIT (2) ; “ 

FILE S ( 1 ) = # # S A C R F : 

CALL PRIMITIVE PCBDATA (PIN AME , dPUT, 3RESV EC , 
FIN AMT, FIN AME, FILES, ERROR) ; 

ENDCASE; 

EN D_ 0 F_C ASES ; 

/* ASSIGN THE FILES THAT HAVE BECOME AVAILABLE */ 

DO I = FILE L LIMIT TO FILE U LIMIT: 

IF CHEKK (I) “THEN CALL RESOLVE DEADLOCK (I, PIN AME) ; 

END; 

END Di:AELOCK_SETTER; 

END FILE_ MANAGER; 
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MODULE SPECIFICATION 

NAME: FILE SPACE MANAGER TYPE: PROCESS 

PARAMETERS 

INPUT OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 



Reguest 



Release 



PCBData 



PCBData 



RCBData 



RCBPUTQ 



Find 

I-Name 



Process I-faame, 
Semaphore, 
Message Pointeir, 
Error Parameter 



a) $Space - Semaphore used to 
identify messages for this 
process. 



Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



a; 



b) 

c) 



$Rfilew - Semaphore u 
send messages to an i 
face process to up- 
date the directory. 
$XXXXXX - Semaphore u 
send a message to the 
cess requesting a fil 
$Error - Semaphore us 
send messages to the 
Handler. 



sed to 
nter- 



sed to 
pro- 

e. 

ed to 
Error 



Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 



Process I-Name, 
Put/Get identifier 
Field Identifier, 
Vector Lower Limit 
Vector Upper Limit 
Vector Parameter, 
Error Parameter 



r 



t 

t 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 



Re 


so 


urce 


I 


- 


Name, 


Pu 


t/ 


Ge t 


Id 


e 


ntif ler 


Fi 


el 


d Id 


en 


t 


if ier , 


Da 


ta 


Par 


am 


e 


ter. 


Er 


ro 


r Pa 


ra 


m 


eter 



Generic entry point to RCB 
Handier module to enter cr get 
data concerning a resource. 



Resource I-Name, Entr 

Left/Right Queue, used 

Process I-Name, or a 

Data Parameter, reso 

Priority, Queu 

Message pointer, are 

Data Parameter, the 

Error Parameter 



y point to RCB Handler 
to insert a process 
message on a specified 
urce queue by priority, 
es used by this process 
the message semaphore and 
PCT gueues. 



Resource Type, 
Resourse X- flame. 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 
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Create 

RCB 



RCBGETQ 



Resource 
Resource 
Resource 
Sz-Cntr 
Access I 
PCI Name 
De v/Int 
jriie Des 
File Des 
Resource 
Error Pa 



Type, 

X- N ame. 
Owner . 
Parameter, 
dentif ier , 

Identifier , 
cr iptor , 
cri ptor , 
I-Name, 
rameter 



Entry point to RCB Handler 
used to create an RCB cf the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name- Not 
all fields are used by each 
type of resource. 



Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Q_Data Parameter, 
Message Pointer, 
Q_Eata Parameter, 
Found Boolean, 

Q Status Boolean, 
Error Parameter 



This entry point to P.CB Hand- 
ler is used to remove a pro- 
cess from the specified gueue 
for the indicated resource. 

The data stored in the queue 
are returned if the process is 
found and the queue status is 
also provided. 



RCB-Find Resource I-Name, 
Left/Right Queue, 
Find Operation, 
Queue Position, 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to determine gueue 
position of a process and put 
or get a copy of data. The 
process, position, or both may 
be specified tc select a spe- 
cific process, any process at 
the speciried position or a 
specitic process at a speci- 
fied position. 



EXTERNAL CA1IS MADE BY OTHER MODULES 
NAME PURPOSE 



Not applicable for processes. 



DATA STRUCTURES USED 



NAME 


FIELD 


TYPE 


Message 

Buffer 


— 


Based 




Releasor 


Integer 




Answer- 

Reguest 


Bit (1) 




Message- 
Sec aph ore 


Integer 


• 


Buf f er- 
iocation 


Pointer 



PURPOSE/VALUES 

Dynamically allocated, pointer 
qualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
reguired. 

Semaphore to be used in the 
answer . 

Not used by this process'. 
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Fieldl 



Integer a) &$AD D or SiDELEI - Message 
from File Manager indica- 
ting that a device has been 
added or deleted. 

b) $ $SP ACE - Message from File 
Manager indicating that a 
file has been destroyed. 

c) $$PERMF or $$TEMPF - Mes- 
sage to create a permanent 
or temporary file. 

d) $$EXTNT - Message for a 
file extention. 

Field2 Integer a) PCT internal name - Identi- 
fies the PCT which was 
added or deleted, or cn 
which a file was destroyed, 
b) $$SHRD or 3$PRIV - Identi- 
fies the file access-type. 

Field3 Integer File space requested. 

Field4-6 Integer Not used. 

Char- Char (8) Identifies file external name* 

Fieldl 

Char- Char (8) Identifies PCT external name. 

Field2 

Char- Char (8) Not used. 

Field3-4 



MODULE DESCRIPTION _ : , 

File Space Manager has been implemented to perform file 
creation as an independent system function. It fields re- 
guests for file creation, determines type, access, location, 
if specified, and availability of space, if a permanent file 
is requested on a specified PCT and space is not available 
an error condition is raised which terminates the process. 
For temporary files, a dummy file is created until space 
becomes available and then a message is released to the pro- 
cess reguesting the file. 
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MOPULE IMPLEMENTATION 



551 NCLUDE NAMCHGR; /♦**** FILE SPACE MANAGER ****/ 
(CHECK (ERROR)): 

FILE_SPACE_MANAGER: PROC OPTIONS (MAIN) ; 



55INCLUDE SIMULTR: 

SIM_SI ART (PROCESS_FILE__SPACE_MANAGER) 

551 NCLUDE GENDEC: 

55INCLUDE REQRELD ; 

^INCLUDE RCBDCL; 

^INCLUDE' PCBECL; 

55INCLUDE CASESTM; 



DCL (INAME, FDATA, iy FIXED BINARY; 

DCL SPACE VEC (PCI L LIMIT : PCT U LIMIT) EIT(1): 

DCL CUT SPACE RET5 FIXED BINARY” STATIC INITIAL (0) ; 

DCL ESI AT BIT71) ; 

DCL ERROR FIXED BINARY INITIAL (0) ; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR -•= 0V THEN DO; 

FIELD 1 = REi/EASOR; MSG SEMAPHORE = SSPACE; 
FIELD2 = ERROR; 

(NOCHECK (ERROR)”) : BEGIN; ERROR = 0; 

CALL PRIMITIVE RELEASE ( AN YPROC , $E RROR , 
MESSAGE, ERROR) ; END; 

GO TO START; 

END; 

END; 

55INCLUDE REMSG; 

START: 

DC FOREVER: 

CALL PRIMITIVE REQUEST (AN YPROC, $SPACE , MESSAGE , EERCRJ ; 



SIM INTERRUPT PT 



CALI MESS AG E_ INTERPRETER; 

DO ACTION OF CASE (I) ; 

“CASE (17: /* SPACE MODIFICATION FBCM FILE MANAGER 

A DEVICE HAS BEEN ADDED OR DELETED */ 
IF ( FIELD 1 = $$DE LET) THEN 

SPACE V EC (EIELD2) = FALSE; 

ELSE DO; "SPACE VEC(FIELD2) = TRUE; 

IF (OTTT_SP AC E_REQ -» = 0) THEN 
CALL SPACE RESOLVER (FIELD2) ; 

END; 

ENDCASE; 

CASE (2): /* SPACE FREED BY FILE MANAGER; I.E., 

A FILE WAS DESTROYED. */ 

IF (OUT SPACE RLQ -.= 0) THEN 

"CALL SPACE RESOLVER (FIELD2) ; 

ENDCASE; 
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CASE (3) : 



END 

SIM 



/* SPACE REQUESTED FOR PERMANENT FILE, 
DEVICE SPECIFIED BY EXTERNAL NAME. */ 
/* GET INTERNAL NAME, IF NOT FOUND ERROR 



PRIMITIVE. 
EIELD2 , IN AME , 



V 



V 



CONDITION IS SET ^N' 

CALL FIND INAME (#PCT, CHAR, 

— £ R RO R ) • J 

/* CHECK DEVICE STATUS IF IN HOLD SET 
ERROR; I.E., NO FILE CAN BE CREATED 
CALL PRIMITIVE RCBDATA (IN AME ,#GET, #DST AT , 

ESTAT, ERROR) : 

IF (BSTAT = # #HOLD) THEN ERRCR = 113; 

/* STAT IS GO; CHECK IF PERMANENT FILES 
CAN BE CREATED ON THIS UNIT. */ 

CALL PRIMITIVE RCEDATA (INAME ,#GET, #OFIIE , 

FDATA , ERROR) : 

IF (FDATA = ##TEMPF) THEN ERROR = 114; 

/* NOW CHECK SPACE AVAILABLE; IF SPACE 
NOT AVAILABLE SET ERROR CONDITION */ 
CALL PRIMITIVE RCBDATA (IN AME , #GET, #CNT SZ, 

f DATA, ERROR) ; ” 

IF (FIELD3 > FDATA) THEN ERROR = 115; 

/* ALL TESTS COMPLETED SUCCESSFULLY; 

CREATE THE FILE, ENTER IN DIRECTORY, 
UPDATE SPACE, ETC. V 

CALL FILE CREATOR (INAME) ; 

FDATA = FDATA - F1ELD3 ; 

CALL PRIMITIVE RCBDATA (INAME, #PUT,#C NT SZ, 

FDATA, ERROR) ; 

EN EC AS E * 

CASE (4); * /* CREATE A TEMPORARY FILE WHERE SPACE 

IS AVAILABLE; ELSE CREATE A DUMMY 
FILE UNTIL SPACE BECOMES AVAIIABIE. */ 
DO J = PCT L LIMIT TO PCT U LIMIT - 1 

IF (SPACE - VEC ( J] 



‘CALL FRIHI 



J)) THEN DC; 

TIVE_EC3DATA (J , # GET L # CFILE , 



IF 



FDAT & , jiAuGE) 
THEN DO; 



(FDATA ##PERMF) 

CALL PRIMITIVE RCBDATA (J , #GET , 
#CNT SZ, FDATA, ERROR) ; 



IF (FIELDS’ <= FDATA) 



END; 

IF (J 
/* 

CRATEF: CALL FILE CREATOR 
FDATA = FDATA = FI ELD 3 



> PCT U LIMIT) 
CREATD I DUMMY 



THEN 

FILE 

(J) 



END; 

J = 0 

V 



THEN 

GO TO CRATEF 
END; 



IF (J -i=0 



ENECASE 
CASE (5) : 



ft PUT 



= 0 ) 

, #C> 



THEN CALL PRIMITIVE RCBDATA (J, 
NT SZ, FDATA, ERROR) ; ~ 



ENDCASE 
EN D_GF CASES ; ' 

; /* END DO FOREVER 



/* A FILE E-XTENTION REQUESTED; CHECK 
FO-R SPACE AVAILABLE CN SAME UNIT; 

IF NOT AVAILABLE SET ERROR CONDITION 
ELSE ALLOCATE SPACE, UPDATE DIRECTORY, 
UPDATE FILE RCB , ETC. */ 

/* TO BE IMPLEMENTED LATER */ 



V 



^END 
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MESSAGE INTERPRETER: PROC; 

IF (1FIELD1 = ADD) | (FIELD 1 = $$DELE1) ) THEN 1=1; 
ELSE IF (FIELD 1 = 3SSPACE) THEN 1 = 2: 

ELSE IF (FIELD 1 = i$PERMF) THEN 1 = 3; 

ELSE IF (FIELD 1 = $$TEMPF) THEN 1=4; 

ELSE IF (FIELD 1 = £$EXTNT) THEN 1=5; 
ELSE ERROR = 110; 

RETURN; 

END ME SS AG E_ INTERPRETER ; 

FILE_CBEATCR: PROC (PCTINAM) ; 

/* THIS SUBROUTINE CREATES A FILE (REAL OR DUMMY) AND 
RELEASES MESSAGES TO THE PROCESS REQUESTING A FILE 
ANL TO UPDATE THE DIRECTORY, OR QUEUES REQUESTS 
UNTIL SPACE BECOMES AVAILABLE */ 

DCL (PCTINAM, RCBNR, FDATA, AVAIL, PINAME) FIXED BINARY; 

DCL CDAIA CHAR (8) ; 

DCL DUMMY FT R POINTER; 

IF (PCTINlM -.= 0) THEN DO; 

/* GET DATA FOR CREATING A FILE */ 

CALL PRIMITIVE RCBDAT A (PCTINAM , #GET , #X NAME, CD AT A , 

ERROR) ; 

C AIL PRIMITIVE RCBDATA (PCTINAM, #GET, #DINAME, FDATA, 

~~ ERROR) : 

CALL PRIMITIVE RCBDATA (EDATA, #GET, #CWNER, PI NAME, 

ERROR) ; 

AVAIL = # #A VAIL ; 

END: 

/* SET VARIABLES FOR CREATING A DUMMY FILE*/ 
ELSE DO; CDAT A = * »; FDATA = 0; AVAIL = ##NOAVL: END; 

CALL CREATE RCB (#FILE , CHAR FIELD 1 , RELEASOR , FI E1DJ , 

FIELD2,CDATA, FDATA, A VAIL, FIELD 1 , RCBNR, 
ERROR) ; 

IF .(PCTINAM -= 0) THEN DO; 

/* FILE CREATED: RELEASE A MESSAGE TO THE INTERFACE 
PROCESS TO UPDATE THE DIRECTORY */ 

ANSWER REQUEST = FALSE; 

FIELD5"= FIELD1 ; 

FIELD6 = FIELD2 ; 

FIELD 1 = 33DIRAB; 

FIELD2 = 0; 

FIELD4 = FDATA; 

CALL PRIMITIVE RELEASE (PINAME, SJRFILEW , 

MESSAGE, ERROR) ; 

/* RELEASE A MESSAGE 1C THE PROCESS 

REQUESTING A FILE. */ 

FIELD1 ='FCBNR; 

CHAR FIELD2 = CDAT A ; 

CAL L — PRIM 1 1 1 V E RELEASE (RELEASOR , 

MSG SEMAPHORE, MESSAGE , ERROR) ; 

E N’ D * 

ELSE DO; /* DUMMY FILE CREATED; QUEUE UP INFO UNTIL 
SPACE AVAILABLE AND MESSAGE CAN 3E 
RELEASED V 

DUMMY PTR = NULL; 

CALL PRIMITIVE PCBDATA (RELEASOR, aGET ,£FRI PTY , 

FDATA, ERROR) ; 

CALL RCBFUTC (PCT U LIMIT, BRIGHT, RELEASOR, 

MSG SLfiAPHORETFDATA, DUMMY PTR , RCBNR , ERRCR) ; 
OUT SPACI_REQ = OUT SPACE REQ ? 1; 

END7 

END FILE CREATOR; 



SIACE_RESCIVER: PROC (PCTI H A M) ; 

/* THIS SUBROUTINE ATTEMPTS TO RESOLVE OUTSTANDING 
FILE CREATION REQUESTS */ 
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DCL fPCTINAM,DAT, POSIT , PI NAM., FINAM, PRI,SEMA, DAT 2, DATA) 
FIXED BINARY; 

DCL (FOUND , Q EMPTY) £11(1), DUMMY PTR POINTER; 

DCL CDATA CHAR (8) ; ~ 

POSIT = 0; 



DO WHILE (CUT SPACE REQ 
/* GET THE - SPACE - A V AI 

FOE A FILE FROM THE QUEUE; 
FOR THIS FILE REQUEST. 



POSIT = POSIT 



= 0 ) ; 

AVAILABLE; AN OUTSTANDING 



+ i; 

REQUEST 
AND THE SPACE REQUIRED 

V 



CALL PRIMITIVE RCBDATA (PCTINAM, #GET, #CNT SZ , D AT , E FROR) ; 
CALL RCE FIND (PCT U LIMIT , #RIGHT, #F N DCP57POSIT , PI NAM, 
FINIMTPRI, ERROR) : 

CALL PRIMITIVE RCBDATA (FINAM , #G£T , #CNT SZ , DAT2 , ER K CR) ; 
IF (EAT >= DAT7) THEN DO; - 

/* SUFFICIENT SPACE IS AVAILABLE: REMOVE THE 

FILE REQUEST FROM THE QUEUE. */ 

CALL RCBGETQ (PCT U LIMIT ,# RIGHT , PI NAM , SEM A , DUMMY PTR 
,FINIH7FCUND,Q EMPTY, ERROR) ; 

/* UPDATE THE SPACE AVAILABLE 
DATA = DAT - DAT2 ; 

CALL PRIMITIVE RCBDATA (PCTINAM ,#PUT, #CNT SZ, 

DATA, ERROR) ; 

OUT SPACE REQ = OUT SPACE REQ - 1; 

7* INITIALIZE FILE RCl ELEMENTS. 

CALL 



PRIMITIVE ECBDaIA (FI NAM , # PUT , #OFILE ,## AVAIL , 

ERROR) ; 

CALL PR1MITI VE_R CBD AT A (PCTINAM , *GET , #DI NAME , DAI A , 

ERROR) : 

CALL PRIMITI VE_RCBDATA (FINAM , ffPUT , #DIN AME, DATA, 

ERROR) ; 



V 



V 



/* RELEASE A MESSAGE TO THE INTERFACE PROCESS 

TO UPDATE THE PCT DIRECTORY. */ 

FIELD4 = DATA; 

CALL PRIMITIVE RCBDATA (DATA, #GE'i', #OWNER, DAT A, ERROR) ; 
ANSWER REQ UEST - = FALSE; 

FI ELD 1 — = 2 $DIRAD ; 

FI ELD 2 = FINAM; 

FIELDS = DAT2; 

CALL PRIMITIVE_RCBDATAr(FINAM,#GET,#TFILE,FIELD5, 

ERROR) : 

CALL PRIMITIVE RCBDATA (FINAM, #GET, #S OR P,FIELD6, 

ERROR) ; - - 

CALL PRIMITIVE_RELEASE (DATA, $RFILrW, MESSAGE, ERROR) ; 

/* SETUP AND RELEASE A MESSAGE TO THE PROCESS 

REQUESTING A FILE. */ 

CALL PRIMITIVE RCBDATA (PCTINAM , #GET , #X NAME , CDATA , 

ERROR) ; 

CALL PRIMITIVE RCBDATA (FI NAM , # PUT ,# XN AME, CD ATA , 

ERROR) ; 

FIELD 1 - FINAM; 

CHAR FIELD 2 = CDATA: 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE = 0: 

FIEIC2, FIELD3 = 0; 

CHAR FIELD 1 = * • ; 

CAL L — PRIMITIVE RELEASE ( PI N A M,SEH A, MESSAGE, ERROR) ; 
POSIT = POSIT - 1; 

DAT = DAT - DAT2; 

END; 

/* CHECK FOR MORE OUTSTANDING REQUESTS TO BE 

SATISIEIED. */ 

IF (POSIT = OUT SPACE REQ) THEN RETURN; 

END: 

RETURN ; 

END SPACE RESOLVER; 



END F I L E_ S P A C E_M A N AG ER ; 
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MODULE SPECIFICATION 



NAME; N INTERRUPT HAND LER TYPE: PROCESS 



P ARAMETE £S 

INPUT OUTPUT T YPE CON TEN TS 

None 



EXTERNAL CALLS MADE TO OTHER MODULES 



NAME 


PARAMETERS 


PURPOSE 


Release 


Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 


a) SError - Semaphore used to 
send messages to the Error 
Handler . 

b) SXX&XXX - Semaphore used to 
send messages to an inter- 
face process or process 

a process expecting an 
interrupt message. 


Interrupt 

Disabler 


Interrupt Numoer, 
Interrupt Save- 
Vector 


This module is invoked tc dis- 
able ail interrupts while 
the handler is in execution. 


Interrupt 

Enabler 


Interrupt Number, 
Interrupt Save- 
Vector 


This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 


^a v estat e 


CPIname, 

Processor, 

Error Parameter 


This module is invoked tc save 
the current state of execution 
of a process being preempted. 


Restore- 

State 


PIName, 

Processor, 

Error Parameter 


This module is invoked to 
restore the state of the pre- 
empted process. 


RCBData 


Resource I-Name, 
Put/Get Iaentifier, 
Eield Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 


Find 

I-Name 


Resource Type, 
Resourse X-N'ame, 
Resource I-Name, 
Error Parameter 


Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) and 
external name. 
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EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PURP OSE . 

iDvcked directly by hardware when an interrupt occurs. 



DATA STRUCTURES 
NAME FIELD 


USED 

TYPE 


PURPOSE/VALUES 


Message — 

Buffer 


Based 


Dynamically allocated, pointer 
qualified structure used tor 
sending information concerning 
the interrupt via a Release. 


Saveint 


Bit (1) 
Array 


Array used to save the status 
of tne interrupts; arguement 
in call to the Disabler and 
Enabler. 



MODUL E D ESCRIPTION 



This process is in yoke-scheduled by hardware when e 
interrupt occurs. It determines which interrupt wa 
sets up a message to the appropriate interface proc 
resets the interrupt. The current process is tempo 
preempted until the interrupt is handled. This mod 
only teen partially implemented. 



ver an 
s set, 
ess and 
r ar ily 
ule has 




%INCLU DE NAMCHGR; 



/***** INTERRUPT HANDLER *****/ 



(CHECK (ERROR)); 

iNTERRUPl_ HANDLER: PROC OPTIONS (MAIN) ; 

^INCLUDE GEN EEC ; 

^INCLUDE CSDCi; 

%INCLUDE PCBECL; 

3&INCLUDE REQRELD; 

/^INCLUDE BRMSG ; 

ON CHECK (ERROR) 

BEGIN; 

IE (ERROR -= 0) THEN DO; 

(NCCHECK (ERROR) ) : EEGIN; 

EIELD1 = MYNAME; 

EIELD2 = ERROR ; 

CALL PRIMITIVE RELEASE (ANYPEOC # $ ERROR , MESSAGE, 

ERROR) ; 

ERROR =0; 

GO TO RETURN PT; 

ENE; 

END; 

END ; 

DCL (SAV PROC,INAME,INTF PROC , SEMAPHORE) FIXED BINARY; 

DCL Eli HOE FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALI PRIMITIVE_INTERRUPT_DIS EN ABLER ( ALL^_I NT, SA VEIN TS) ; 

/*** sa v2 THE STATE OF CURRENT PROCESS ***/ 

SAV PRCC=CUERENT_PROCESS (SYS PROCESSOR) ; 

ClLL PRIMITIVE SAVESTAT5 (SAV PROC, SYS PRCCFSSO R . EE ROR) ; 

/*** SET CURRENT PROCESS TO INTERRUPT HANDIER V 
CURRENT^PROCESS (S YS_PROCESSOR) = MYNAME; 

/*** IDENTIFY THE INTERRUPT ***/ 

CALL IN1ERRUPT_IDENTIFIER; 

/*** RELEASE THE MESSAGE TO PROCESS CONCERNED */ 
CALL PKIMITIVE_EELEASE(INTF_PROC, SEMAPHORE, MESSAGE, ERROR) ; 

/*** RESTORE THE STATE OF INTERRUPTED PROCESS */ 
CALL PBIMITIVE_R ESTOR ESTATE (5AV__PR0C,SYS_ PROCESSOR, ERROR) ; 

/*** REENABLE THE INTERRUPTS ***/ 

CALI FBI MI TIVE_IN1EERUPT_ ENABLER (ALL_I NT ,SAVEINTS) ; 

INTERRUPT IDENTIFIER: PROC; 

/* IDFflllFY WHICH INTERRUPT IS SET, SET MESSAGE BUFFER, 
RESET THE INTERRUPT, SET LOCAL VARIABLES , I RTF PROC 
AND SEMAPHORE, APPROPRIATELY AND TAKE CARE OF AM 
SPECIAL ACTION REQUIRED */ 

END INTERRUPT^ IDENTIFIER; 

RETURN PT; 

END I NTlRR UPT_H AN DLER ; 
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MODULE SPECIFICATION 



NAME: RELEASE 'TYPE: PRIMITIVE 



PARAMETERS 

IN PU I OU TPU T £ YP E CO NTEN TS 

Addressee Integer Process/ specified or unspeci- 

fied, expected to do a match- 
ing Request. 

Semaphore Integer Message/Resource class identi- 

fier. 

Message Pointer Qualifies message buffer which 

contains the information to be 
entered in the message buffer 
reguest. 

Error Integer Error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAME PARAMETERS PURPOSE 

Interrupt Interrupt Number, This module is invoked tc dis- 

Disabler Save Vector able all interrupts while 

Release is in execution. 

The status of the interrupts 
is saved in the Save Vector. 

Interrupt Interrupt Number, This module is invoked tc re- 

enabler^ Save Vector enable ail interrupts which 

were disabled by the current 
module in execution. 

RCBData Resource I-Name, Generic entry point to RCB 

Put/Get Identifier, Handler module used by this 

Eield Identifier, module to verify the semaphore 

Data Parameter, passed as an arguement. 

Error Parameter 

RCBPUTQ Resource I-Name, 

Left/Right Queue, 

Process I-Name, 

Data Parameter, 

Priority , 

Message Pointer, 

Data Parameter, 

Error Parameter 

PCBData Process I-Name, 

Put/Get Identirier, 

Field Identifier, 

Vector Lower Limit, 

Vector Upper Limit, 

Vector Parameter, 

Error Parameter 

PCBData Process I-Name, Generic* entry point to PCB 

Put/Get Identifier, Structures module to obtain 
Field Identirier, the unblocrod process's type 

Data Parameter, and priority and change status 

Error Parameter to ready active. 



Generic entr_y Doint to PCB 
Structures module used ny tnis 
module to verify access autno- 
riration for the process using 
the semaphore. 



Entry point tc RCB Handler 
used to insert a process 
or a messaae on a specified 
resource queue by priority. 
Queues used by this module 
are the message semaphore and 
the Ready Active queues. 
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Scheduler (NONE) 



Allocater Caller, 

Addressee, 
Semaphore, 
Message , 

Reg_Rel Boolean, 
Match Boolean, 
Error Parameter 



This primitive is invoked to 
-schedule a process for exec- 
tion if the current process 
doing the release matched an 
outstanding reguest from a 
blocked process. 



This primiti 
determine if 
guest has he 
message or t 
released for 
process. If 
process is u 



ve is invoke 
a matching 
en made for 
he resource 
r ealloca tio 
Match is tru 
nblocked . 



d to 
ce- 
this 
teing 
n to a 
e the 



EXTERNAL CALLS MADE BY OTHER MODULES 
NJIMJ ^PURPOSE 

Invoked by all system and user processes. 



DATA STRUCTURES USED 

NAME FIELD TYPE PURPOSE^ VALUES 

Saveint Bit(1) Array used to save the status 

Array of tne interrupts; arguement 

in call to Disabler and 
Enabler. 



MODULE DESCRI PTIO N 



This primitive has been designed to provide a 
for interprocess communication and resource a 
message/resource class identifier and process 
rization are verified. The Allocator is then 
determine if the release can be matched. If i 
cess is unblocked and the Scheduler is invoke 



uniform method 
llocation. The 
access autho- 
invoked tc 
t is, the pro- 
d. 
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M0D^E_1«£LEMENT AIION 

^INCLUDE NAMCHGR; /***** RELEASE *****/ 

/* #*******M*^**<<**!lf*J(!#* if if if if if 

THIS PRIMITIVE DETERMINES IF THE CURRENT RELEASE 
MATCHES AN OUTSTANDING REQUEST. IF IT DOES , THE ELOCKED 
PROCESS IS ACTIVATED AND THE SCHEDULER IS INVOKED. **/ 

(CHECK (ERROR)}: 

PRIMITIVE RELEASE: PROC (TO, SEMAPHORE, MSG PTR , ERPRM) 

OPTIONS (MAIN) ; 

S5INCLUDE GENEEC; 

^INCLUDE CSDCL ; 

^INCLUDE RCBECL; 

% I-N C L U D E PCBDCL; 

ON CHECK (ERROR) 

BEGIN; 

IE jERROR -* = 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL (C ALLER , ADDRESSEE, SEMAPHORE r ERPRM ,PRI, TO) 

FIXED EINARY; 

DCL ERROR FIXED BINARY INI! (0) ; 

DCL MSG PTR POINTER; 

DCL (VAIID,MaTCH) BIT(1); 

DCL (S YSPRC ,CUE) BIT (1) J 

DCL REL BIT (1) STATIC INITIAL (• 1 • B) ; 

DCL RES VEC (SEM L LIMIT : SEM LIMIT) BIT (2); 

DCL 10 FIXED BINARY STATIC INIT(O); 

DCL NULP POINTER STATIC; 

/ififif DISENABLE ALL INTERRUPTS***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLER ( ALL_I NT , S A VE I NTS ) ; 

/* VERIFY SEMAPHORE AND ACCESS */ 

CALL PRIMITIVE RCBDATA (SEMAPHORE, #GEI, #ASSGND, VALID, 

ERROR) ; 

IF (-.VALID) THEN ERROR = 308; 

CALLER = CURRENT PROCESS (PROCESSOR) ; 

CALL PRIMITIVE_PC3DATA (CALLER, diGET , aEES VEC, SEM I LIMIT, 

SEM LIMIT, KjiS VEC, ERRORY 

IF ( 5 ES__ VEC (SEMAPHORE) = *#NJ3ACC) THEN” ERROR = 307; 

/*** INVOKE THE ALLOCATOR ***/ 

ADDRESSEE = TO; 

CALL PRIMITIVE ALLOCATOR (CALLER, ADD R ESSIE, SEM APE ORE , 

MSG_PTR, REL, MATCH, ERROR) ; 

IF (MATCH) THEN DO; /*** ACTIVATE THE PROCESS ***/ 

CALL PRIMIT1 VE_PCBDAT A (ADDRESS EE, o)PUT,c)STATUS, 

o)d)REDY A , r-RROK) ; 

CALL PRIMITI VE_PCB DAT A ( A DDRESS EE, a) GrT , a>PRI RT Y , PR I , 

ERROR) ; 

CALL PRIM ITI VE_PC3DA! A (ADDRESSEE, 5GE1 ,SSYS PRO , 

SYS PRO, ERROR) ; 

IE (SYSPRO = TRUE) THEN QUE = *03; ELSE QUE = #USER; 
NULP = NULL; 

CALL RCBPUTi (# R ED Y A, QUE, ADDRESSEE, 10, PR I, NULP, 10, 
ERROR) : 

CALL PRIMITIVE SCHEDULER; 

END: 

RETURN POINT: /*** REENABLE. THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL 1 NT , S A VEI NTS) ; 

END PRIMITTViv_REltASE; 
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MODULE SPECIFICATION 



NAME: REQUEST 



TYPE: PfilMITI 



PAR AMETE ES 

INPUT OUTPUT TYPE CONTENTS. 



Addressee 



Semaphore 



Message 



Error 



Integer 



Integer 



Pointer 



Integer 



Process, specified or un 
fied, expected to do a m 
ing Release. 

Message/Resource class i 
fier. 

Qualifies message buffer 
which the matching relea 
message information is t 
of a process doing a mat 
entered. 

Error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enatler Save Vector 



RCBData Resource I-Name, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked t 
able all interrupts whil 
Request is in execution. 
The status of the interr 
is saved in the Save Vec 

This module is invoked t 
enable ail interrupts wh 
were disabled by the cur 
module in execution. 

Generic entry point to P. 
Handler module used by t 
module to verify the sem 
passed as an arguement. 



PCBData Process I-Name, 
Put/Get Identify. 
Field Identifier 
Vector Lower Lim 
Vector Upper Lim 
Vector Parameter 
Error Parameter 



Generic entry point to P 
er. Structures module used b 
, module to verity access 
it, rization for the process 
it, the semaphore. 

r 



PCELata 
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Generic entry point to P 
Structures module to cha 
the requesting process's 
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ch . 
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Scheduler 


(NONE) 


This primitive is invoked to 
schedule a process for ejec- 
tion if the current process 
doing the request gets blocked 
for an answer or a resource. 


Savestate 


Reguestor, 

Processor, 

Error Parameter 


This primitive is invoked to 
save the current state of exe- 
cution of the process which 
did an unmatched request. 


Allocator 


Caller, 

Addressee, 

Semaphore, 

Message, 

Beg Rel Boolean, 
Match Boolean, 
Error Parameter 


This primitive is invoked to 
determine if a matching re- 
lease has been made or if the 
rsguested resource is availa- 
ble for allocation to this 
process. If Match is false the 
process is blocked. 



EXTERNAL CALLS WADE BY OTHER MODULES 
NAME ' PURPOSE 



Invoked by all system and user processes. 



DATA STRUCTURES USED 

NAME FIELD TYPE^ ^.PURPOSE/ VALUES. 



Saveint 



Bit(1) Array used to save the status 
Array of the interrupts; arguement 

in call to Disabler and 
Enabler . 



MODULE^DESCRIPTigN 



This primitive has been designed to provide a uniform method 
for interprocess communication ana resource allocation. The 
message/r esource class identifier and process access autho- 
rization are verified. The Allocator is then invoked tc 
determine if the reguest can be satisfied. If not, the pro- 
cess is blocked and the Scheduler is invoked. 
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MODULE IMPLEMENTATION 



S&INCLUDE NAMCKGR ; /***** REQUEST *****/ 

✓ ajc # # 

THIS PRIMITIVE DETERMINES IF THERE IS A MATCHING 
RELEASE FOR THE CURRENT REQUEST. IF NOT, THE INVOKING 
PROCESS IS BLOCKED, THE REQUEST QUEUED, AND SCHEDULER 
INVOKED. **/ 

(CHECK (ERROR)}: 

PRIMITIVE REQUEST: PROC (TO, SEMAPHORE, MSG PTR , ERPRH ) 

OPTIONS (MAIN) ; 

^INCLUDE PCBLCL; 

^INCLUDE OSDCL; 

SilNCLUDE RCBLCL; 

DCL (SEMAPHORE, ADDRESSEE, CALLER, ERPRM, TO) FIXED BINARY; 

DCL ERROR FIXED BINARY INIT (0) ; 

DCL MSG PTR POINTER; 

DCL REQ~EIT ( 1) STATIC INITIAL (• 0 ' B) ; 

DCL VALID EIT(1) INITIAL (' 1 1 3) ; 

DCL RES VEC (SEM_L LIMIT : SEM LIMIT) BIT (2) ; 

DCL MATT^H BIT(1) ; " 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR -.= 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END ; 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMI IIVE^I NT EREUPT_DI SEN ABLER (ALL_IN1 , S AVEI NTS ) ; 

/* VERIFY SEMAPHORE AND ACCESS */ 

CALL PRIMITIVE R CBDAT A (S HMA PHORE ,-*GEI , # ASSGND, V ALI E , 

ERROR) ; 

IF (-.VALID) THEN ERROR = 303; 

CALLER = CURRENT PROCESS (PROCESSOR) : 

CALL PRIMITIVE PCBDATA (CALLER, a/GET,3RESVEC, SEM I LIMIT, 

SEM LIMIT, RES VEC, ERROR! ;” 

IF (RES_VEC (SEMAPHORE) =*UNt3ACC) THEN ERROR = 307; 

/*** INVOKE THE ALLOCATOR ***/ 

ADDRESSEE = TO* 

CALL PRIMITIVE ’ALLOCATOR (CALLER, ADDRESSEE. S EH A PHORE , 

MSG_PTR,REQ, MATCH, ERROR) ; 

IF (-.MATCH) THEN DO; /*** BLOCK THE INVOKING PROCESS **/ 
CALL PRIMITIVE PCBDAT A (CALLER ,<y PUT, ©STATUS , oDSBLKDR, 

ERROR) ; 

CALL PRIMITIVE SAVESTATE (CALLER, PROCESSOR, ERROR) ; 
CURRENT PROCESS (PROCESSOR) =0; 

CALL PRIMITIVE SCHEDULER; 

End ; 

RETURN POINT: 

/*** xlEENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , S A VEIN! S ) ; 

END PRIMITIVE REQUEST; 
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MODULE SPECIFICATION 



NAME: ALLOCATOR ' TYPE: PRIMITIVE 

PARAMETERS 



INPUT 


OCTFUT TYPE 


CONTENTS 


Addressor 


Integer 


Process internal name which 
initiated the call to Reguest 
or Release. 


Addressee 


Integer 


Process internal name to which 
the message is addressed or 
from which the message is ex- 
pected; may be unspecified. 


Semaphore 


Integer 


Message/Resource class iden- 
tifier. 


Message 


Pointer 


Qualifies message container. 


Reg_Rel 


Bit (1) 


Boolean identifying message 
type; request or release. 




Match Bit (1) 


Boolean specifying if the cur- 
rent message matched a queued 
message. 




Error Integer 


Error condition code. 


EXTERNAL 

NAME 


CALLS MADE TO OTHER 
PARAMETERS 


MODULES 

PURpObE 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to PCS 
Structures module to obtain 
the priority of the process 
which initiated the message 
when no match was found. 


RCBPUTQ 


Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 


Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority 
when no match was found. The 
queue is specified by the se- 
maphore and Req_Rel . 


RCB- 
Ma tch 


Addressor, 

Addressee, 

Semaphore, 

Message, 

RegRel , 

Match, 

Error Parameter 


This primitive is invoked to 
compare outstanding messages 
on the specified semaphore 
gueue (ir any) ana returns the 
message buffer pointer ii a 
match is found. 
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EXTERNAL CALLS WADE BY OTHER MODULES 

NAME ; PURPOSE 

Reguest S Release Resource allocation and message matching 

or queueing unmatched messages. 



DATA STRUCTURES USED 

NAME FIELD TYPE PU RPOSE/V At U ES 

Message Based Structure used to store un- 

Buffer matched message releases until 

matching request is received. 



MOD ULE DESCRI PTI ON 



This primitive has been -designed to manage the aliocat 
of resources, handle interprocess communication, and a 
the primitives Request and Release. Unmatched message 
leases are queued on the specified semaphore queue aft 
transfering the message data to a temporary container 
as unmatched message requests result m the queueing o 
message and the process doing the request. Matched rel 
unblock processes which had outstanding requests satis 
and in either case, matched requests or releases, the 
in tne queued release or current release is transferre 
to the requestor's message container. 



ion 

esist 

re- 

er 

where- 
r the 
eases 
f ied 
data 
d in- 
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WP^UL2_IMPLEMMIATI0N 



%INCLUDE NAMCBGR; /***** ALLOCATOR *****/ 

(CHECK (ERROR) ) : 

PRIMITIVE ALLOCATOR: PROC (A DDR ESS OR, ADDRESSEE,SEMAPHCRE, 

MSG PTR, REQ REL, MATCH, ERRORPARM) 
OPTIONS'^ MAIN) ; ” 

55INCLUDE PCfiECL; 

55INCLUDE GE N EEC ; 

^INCLUDE RCEDCL: 

^INCLUDE REQRELD ; 

ON CHECK (ERROR) 

B'EGIN; 

IE (ERROR - 1 = 0) THEN DO; 

ERRORPARM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL (ADDRESSOR, ADDRESSEE, SEMAPHORE, PRI , DATA, ERRORPARM) 
FIXED BINARY; 

DCL ERROR FIXED BINARY INIT(O); 

DCL (MSG PTR , MSGPTR) POINTER; 

DCL (MAIXK, R£Q_REL) 3IT(1); 

/* DETERMINE IF THE CURRENT MESSAGE MATCHES A QUEUED 

MESSAGE. V 

CALL PRIMITIVE RCB MATCH (ADDRESSOR, ADDRESSEE, SEMAPHORE, 

MSG PTR, REQ_AEL, MATCH, ERROR) ; 

IF ((MATCH) & (-iREQ EEL)) THEN DO; /* MATCH & REQUEST V 
IF (MSG PTR -»= NULL) THEN DO; 

MSG PiR -> MESSAGE BUFFER = MSGPTR -> MESSAGE EUFFER ; 
ERE"E MSGPTR -> MESSAGE BUFFER; 

END; 

RETURN; END; 

IF ((MATCH) & (REQ REL)) THEN DO; /* MATCH & RELEASE */ 
IF (MSG PTR -»= NULL) THEN 

MSGPTR -> MESSAGE BUFFER = MSG_PTR -> MESSAGE_E OFFER; 
MSGPTR -> RELEASCR = ADDRESSOR; 

RETURN; END; 

IF ((-'MATCH) & (REQ REL) & (MSG PTR 1 = NULL)) THEN DO; 

7* NO MATCH 6 RELEASE */ 
ALLOCATE MESSAGE BUFFER SET (MSGPTR) ; 

MSGPTR -> MESSAGE BUFFER = MSG PTR -> MESS AG E_B UFFER ; 
MSGPTR -> R ELEASCL = ADDRESSOR; 

END; 

ELSE MSGPTR = MSG_PTR ; /* NO MATCH & REQUEST */ 

/* NC MATCH: QUEUE THE MESSAGE BY PRIORITY */ 

CALL PRIMITIVE PC BEAT A (ADDRESSOR, OGET, oiPRIRTY, PRI, 

ERROR) : 

CALL ECBPUTQ (S EH APHCE E , REQ R EL , ADDR ESSO B , ADDRESSEE ,PRI , 
MSGPTR, DAT A, ERROR) ; 

RETURN PCINT: 

END PRlMITI VE_ALLOCAlOR; 
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MODULE SPECIFICATION 



NAME: SCHEDULER TYPE: PRIMITIVE 

PARAMETERS 

_JNPUT OUTPUT TYPE CONTENTS 

None 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PU RPOSE 



Interrupt 

Disabler 



Interrupt Number, 
Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



Savestate CPIname, 

Processor, 

Error Parameter 



Res tore- 
State 



PCBData 



RCBGETQ 



PI Name, 
Processor, 

Error Parameter 



Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 

Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Q_Eata Parameter, 
Message Pointer, 
CEata Parameter, 
Found Boolean, 
Q_Status Boolean, 
Error Parameter 

Resource I-Name, 
Left/Right Queue, 
Process I-Name, 

Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 



RCB-Fina Re sour ce 1- Name, 
Left/Rig lit Queue 
Find Operation, 
Queue Position, 
process I-Name, 
Data parameter. 
Data Parameter, 
Error Parameter 



RCBPUTQ 



This module is invoked to dis- 
able all interrupts while 
Scheduler is in execution. 

The status of the interrupts 
is saved in the Save Vector. 

This module is invoked to re- 
enable all interrupts which 
were disabled by the current 
module in execution. 

This module is invoked tc save 
the current state of execution 
of a process being preempted. 

This module is invoked tc 
enter the newly scheduled pro- 
cess's state vector into tne 
the allocated processor's 
registers. 

Generic entry point to PCB 
Structures module to enter or 
obtain data. 



This entry point to RC3 Hand- 
ler is used tc remove a pro- 
cess from the specified gueue 
for the indicated resource. 

The data stored in the gueue 
are returned if the process is 
found and the gueue status is 
also provided. 



This entry point to RCE 
Handler is used to enter a 
preempted process on the ready 
active queue after doing a 
savestate operation. 



Tiiis entry point to RCB Hand- 
ler is used to determine gueue 
position of a process and put 
or get a copy of data. The 
process, position, or both 
be specili :u to select a 



in a y 

ne- 

y p l o c t-' s s at 
the specified ' position ol a 
specific pi-OccLS at a speci- 
fied position. 



cific proc 
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EXTERNAL CALLS MADE 3Y OTHER MODULES 

NAME PURPOSE 

Request Current process blocked on unsatisfied 

reguest; hense processor available. 

Release Current process did a matching release 

which unblocked a process; hense, pre- 
emption possible. 



DATA STRUCTURES USED 



NAME FIELD 


TYPE 


PEJRPOS.E/VALUES. 


Saveint 


Sit (1 ) 
Array 


Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 


Current 


Integer 


This static array identifies 


Process 


Vector 


processes assigned a processor 
which is identified by the ar- 
ray index. 


CPU CPEOC 


Inteqer 


Array of priorities for the 


Pri 

MODULE DESCRIPTION 


Vector 


current processes. 



This primitive has teen partially implemented to perform 
scheduling of processes with preemption only among operating 
system processes. System processes execute only on the 
system processor while user processes execute on the other 
processors. 
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MODULE IMPLEMENTATION' 



3SINCLUDE NAMCHGR; /***** SCHEDULER *****/ 

/* THIS PRIMITIVE SCHEDULES PROCESSES TO BE RUN ON 

PROCESSORS. */ 

(CHECK (ERROR) ) : 

PRIKITIVE_SCHEDULER: PROC OPTIONS (MAIN) ; 

^INCLUDE OSDCL: 

SoINCLUDE FCEECL; 

^INCLUDE RCEECL; 

^INCLUDE GENLEC; 

ON CHECK (ERROR) 

EEGIN ; 

If (ERROR -»= 0) THEN GO TO RETURN_POINT ; END; 

DCL (PEI , POSIT , PI NAME, DUMMY FB) FIXED 5INARY(15), 

ERROR FIXED BINARY (15) INIT(O), 

CPU CPROC PHI (4) FIXED BINARY (15) STATIC INIT ( (4) 0) 
, (FCDND, DUHMYBI ,&E SCHED, PREEMPT) EIT (1) , 

DUMMY FIR POINTER! 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FRI MIIIVE__ IN TERRUPI_DI SEN ABLER (ALL_I NT,SAVEIN1S) ; 

/*** SCHEDULE USER PROCESS IF PROCESSOR IS 

AVAILABLE ***/ 

DO I = 1 TO NUMBCPU: 

IF ((I -=SYS_PROC£SSOR) S (CURRENT_PRCCESS (I) = 0)) 

THEN DO; 

POSIT = 1; 

CALL RGB FIND (#REDYA, ?*USER , S FNDOP5 , POSIT , PINAME. 

~DUilMYFB / PRI / ERROR) ; 

If (PINAM E -= 0) THEN DO; 

CALL RCBGLTQ (#REDYA,#USER r PINAMF / DUMMYFE, 

D U M M Y PTR # DUMMYFB, FOUND, DUMMYB 1 , ERROR) ; 
CALL PRIMITIVE PCBDATA (PIN AME , <2FUT, SSTATUS , 

a)a>RUN , ERROR) ; 

CPU CPROC PRI(I) = PRI; 

CALL PRIMITIVE RESTORES! ATE (PI NAME, I, ERROR) ; 

END; 

END; 

END; 
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PREEMPT IF 



/*** SCHEDULE SYSTEM PROCESSES: 

NECESSARY ***/ 

POSIT = 1: 

CALL RCE FIND ( #LEDY A f #OS , #F NDOP5, POSIT r PIN AME, DUMMYFE , 
PRI , ERROR) ; 

IF (FINAME -•= 0) THEN DO; 

IF (CURRENT PROCESS (SYS PROCESSOR) = 0) THEN 
EE SCHED“= TRUE; 

£ISI DO; 

EE SCHED = FALSE* 

IF" (PEI > CEU CP ROC PEI (SYS PROCESSOR) ) THEN DO; 
PREEMPT = TRUE; ’ 

CALL RCB?UTQ(#R5DYA,i*OS, CURRENT PROCESS ( 

SYS PROCESSOR) , DUMMYF5, CPU CPROC PEI ( 
SYS~PROCESSOR) , DUMMY PTE , D UB t YFb, ER ROE ) ; 

CALL PRIMITIVE SAVIST ATE (CURRENT PROCESS ( 

SYS PROCESSORS ,SYS PROCESSOR r ERROR) ; 

CALL PRIMITIVE PCEtlATA (CURRENT PROCESS ( 

SYS PROCESSOR) , aPUT, 3S1CVTUS ,a>a)REDYA, ERROR) ; 
END; ~ 

ELSE PREEMPT' = FALSE; 

END; 

IF (RE SCHED J PREEMPT) THEN DO; 

CPU CPROC PRI (SYS PROCESSOR) = PRI; 

CALX RCBGEly (sREDlA. #OS, PIN AWE, DUMMYFB, DUMMY FIR, 
DUMMYFB, FOUND, DUMMYB1 , ERROR) ; 

CALL PRIMITIVE PCB D AT A (PIN AM E, d>P UT , a)ST AT US , a) aRU N, 
ERROR) ; “ 

CALL PRIMITIVE RESTORES! ATE (FIN AME , SYS PROCESSOR, 
ERROR) ; “ 

END; 

END; 

/*** REENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT _ENABLER (ALL INT , SAVEINTS) ; 
RETURN_POINT: 

END PRI MITIVE^. SCHEDULER; 
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MODULE SPECIFICATION 



NAME: D E VIC E_DI RECTORY 



TYPE: PRIMITIVE 



PARAMETERS 

INPUT 


OUTPUT 


TYPE 


CONTENTS 


X-Name 




Integer 


Identifies device external 
name. 




Sha_Pri 


Integer 


Device access type: shared or 
private. 




Xnam^Pro 


Char (8) 


External name of the interface 
process. 




NB_PGS 


Integer 


Number of pages in page table. 




PgLocVec 


Integer 

Array 


Vector of the interface pro- 
cess's page addresses. 




Priority 


Integer 


Priority of interface process. 




Interrupt 


Integer 


Device interrupt identifier. 




Found 


Bit (1) 


Boolean, indicatinq that the 
device specified by external 
name was/was not in the Eevice 
Directory. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 



Interrupt interrupt Number, 
Disabier Save Vector 



Interrupt Interrupt Number, 
enatier Save Vector 



This module is invoked tc dis- 
able all interrupts while 
Device Directory is executing. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked to re^ 
enable all interrupts which 
were disabled by the current 
module in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 
N AMJ PURPOSE 



File 
Input 
b Out 



Manager 
Centre 
put Ccn 



iler , 
treile r 



This primitive is invoked to obtain the 
required data to create a device RCB and 
a aevice interface process. 



143 




DATA STRUCTURES USED 
NAME FIELD TYPE 

Saveiat Bit(1) 

Array 



Directory Static 

Array 



Device Char (8) 

Name 

Access Integer 

Type 

Process Char (8) 
Name 

Nr. Pgs Integer 



Page Integer 

Vector Array 

Priority Integer 

Interrupt Integer 
Number 



. MO D PIE _ DESCRIPTION 



PURPOSE/VALUES 

Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 



Dictionary, indexed by exter- 
nal name, of the computer sys 
tem I/O devices. 

Device external name. 



Device access specification: 
shared or private. 

Interface process external 
name . 

Number of pages in interface 
processes page table. 

List of page addresses for the 
Interface process. 

Priority of interface process. 

Identifies device interrupt 
number*. 



This primitive has been designed to provide the system with 
the necessary information to create an ECE for an I/O device 
and an associated interface process. The device external 
name need only be specified to obtain this information. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGR; /* DEVICE DIRECTORY */ 

/* * * * SjC##****.*:**#**********:* 

THIS PRIMITIVE IS USED BY SYSTEM PROCESSES TO GET 
THE REQUIRED INFORMATION TO CREATE AN RCB EOR A 
DEVICE AND A PCB FOR THE INTERFACE PROCESS. */ 

DEVICE DIRECTORY :PROC (XNAME, SHA PRI,XNAM PRO , NRPGS , PGLCCVEC, 

PRI, INI EPTNR,f OU ND7 OPTIONS (MAIN) ; 



55INCLUDE 

^INCLUDE 

DCL 

DCL 

DCI 

DCL 

DCL 

DCL 



CALL PRTMITIVE_INTERRUPT_DIS£NABLER (ALL^'INT , S A VEI NTS) ; 

/* SEARCH THE DIRECTORY EOS THE EXTERNAL NAME '*/ 

DO I = 1 TO NR ENTRIES WHILE (DEV NAME (1)^ -i=XNAME); END; 

IF (I > NR ENTRIES) THEN DO; FOUND=FALSE; RETURN; END; 
/* IF FOUND TRANSFER THE DATA */ 

SHA PRI = SHARPRI (I) ; 

XN AT? PRC = PROXNAM(I); 

NRPGl = HUH PGS (I) ; 

PGLOCVEC = VG LOC VEC(I,*); 

PRI = PRIORITY (I) ; 

INTBFTNB = INTERRUPT LOC (I) ; 

FOUND = TRUE; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PR I MIT IV E_ IN TERR UPT^ ENABLER ( ALL_I NT , SA V El NTS ) ; 

RETURN ; 

END DEVICE_ DIRECTORY; 



GEN EEC; 

CSDCL ; 

(XNAME. XNAM PRO) CHAR,,, , 

(SHA PRI, NRlGS , PRI , IN£r 5?$NR) FIXED EINARY ; 
PGLClVEC (*) FIXED BINARY; 

FOUND BIT (1) ; 

NR ENTRIES FIXED BINARY STATIC INIT (3) ; 



DIRECTORY (3) STATIC, 

DEVNAME CHAR (8) I NIT ( » IPDE V 1 1 , * FFDEV 1 » , • OPDEV 1 • ) , 
SHARPRI FIXED BINARY INIT(1,1,1), 

PRCXNAM CHAR (8) I NIT ( ' INPRO 1 * , 1 FPROI ' r • OUTPB0 1 1 ) , 
NuM PGS FIXED BINARY INIT (1,1,1), 

PG IOC VEC (1) FIXED BINARY INIT (9. 10,1 1) , 
PRIORITY FIXED BINARY INIT (45,47, 4b) , 

INTERRUPT LOC FIXED BINARY INIT (1,2,3) ; 



/*** DISENABLE ALL INTERRUPTS ***/ 




MODULE SPECIFICATION 



NAME: PCE STRU CTU RES ' TYPE: PRI MITIVE 

PARAMETERS 

INPUT OU TPUT TYPE CONTENTS 

Parameters specified with the appropriate entry point. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAM E PARA METE RS PU.RPCSE 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc dis- 
able all interrupts while 
PCS Handler is in execution. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked tc re- 
enable all interrupts which 
were disabled by tne current 
module in execution. 



EXTIRNAI CALLS MADE BY OTHER MODULES 
NAME P URP OSE e . 

Invoked by processes and other primitives. 



DATA STRUCTURES USED 

NAME FIJLD TYPE PURPOSE/ VALUES 



Save ini 



PCB REF 



Bit (1) 
Array 



Pointer 

Array 



Array us 
of tne i 
in call 
Enabler . 



This vec 
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process^ 
the proc 
dimensio 
external 
initiali 
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processe 
any time 
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sav e 


t 


h 


e 


c_ 


ta tu 


s 


nter 


r u 


Pts; 


d 


r 


gu 


e 


ment 




to D 


is 


enable 


r 


a 


n 


d 




tor 


CO 


ntai 


ns 




t h 


e 


PCB 




e pom 


ters 


f 


O 


r 


c 


reat 


ed 


s. T 


he 


ind 


ex 




nu 


m 


her 


is 


ess 


i n 


tern 


al 




na 


m 


€. I 


he 


n is 


b 


cunded 




by 




the 




var 


ia 


ble 


PC 


E 


L 


I 


EIT, 




zed 


at 


IPL 


, 


w 


ni 


c 


h sp 


e- 


he m 


a x 


imum 


n 


u 


mb 


e 


r or 




s th 


at 


can 


e 


X 


is 


t 


at 




in 


th 


e sy 


st 


e 


m . 











Based 


Process Control Block. 


External 

Name 


Char (8) 


Process external name. 


Parent 


Integer 


Process •creator. 


Child 


Integer 


Internal name of dependent, 
related process. 


L e f. t - 
Sibling 


I nt f.-ner 


Links independent, related 
p r o c n s ; value is a p race s s 

internal name or zero. 
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Right- 

Sitting 



Integer Links independent, related 

processes; value is a process 
internal name or zero. 

PCE Paqe Pointer Qualifies the Page Table 
TabTe_vec structure containing the page 

addresses. 

File_ Integer ' Value is the number of current 

Write_Cntr file open reguests for write 

access into a shared file. 

Sys Bit(1) Boolean used to qualify a dto- 

Process cess as a system/user process. 

Resource Bit (2) Array used for identifying re- 

Vector Array source acquisition and access 

authorization. Values are; a) 
##NOACC - access unauthorized 
h) # # ACCES - access authorized 

c) ##ACQRD - resource acquired 

d) # #S ACRF - allocated resour- 
ces have been sacrificed. 

The array index is a resource 
internal name. 

Shared file usage identifier. 
Values are: a) £#READR - read 
only, b) ## WRITE - write or 
read and write access, c) 
##SACR -^sacrificed writer. 

Message_ Pointer Qualifies the message buffer 

Pointer allocated to the process. 

Status Char (8) Process system status. Values: 

a) a)a)BLKDH - blocked for a 
resource 

b) a)a)BLKDT - blocked for time 

c) g)g)RED YA - blocked for a 

S rocessor 

SStJSPD - process suspended 
ej SSRUN - process scheduled. 

Priority Integer Process priority. 

Quantum ' Integer Maximum execution time alloted 

for each allocation of the CPU 
to the process. 

Cycle_ Integer Reschedule time period for a 

Time recurrent process. 

Processor Integer Processor allocated to the 

process . 

Registers Integer State vector: status of CPU. 

Vector registers saved when execution 

interrupted ot tne initial 
state of execution. 



File Integer 

Status 
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Based Contains the number of pages 

and the page addresses. 

Number_ Integer 
Pages 

Table Integer Contains the location of each 

Array ' page of a process's code. 



UPbU L E_D EJCfi I P 110 N 

This module has been designed to be independent and to 
provide sufficient flexibility for modification. A PCB 
structure has been defined above which is allocated dynami 
cally. Bata is entered or retrieved by invoking the module 
at the data- type-specified entry point. The entry point 
specifications have been done separately. 



Page 

Table 
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MODULE IMPLEMENTATION 



XINCLUBZ NAMCHGR; /***** PCE STRUCTURES *****/ 

PCBSTR : PEOC OPTIO NS (MAIN) ; 

a*************** ********* a***#* 

OPERATING SYSTEM SUBMODULE 1 OF DATA STRUCTURES. 

THIS MODULE IS DESIGNED TO BE INDEPENDENT OF THE OTHER 
0.5. MODULES AND TO PROVIDE SUFFICIENT FLEXIBILITY FCR 
EASE OF MODIFICATION. A PRIMITIVE PC3 STRUCTURE IS 
DEFINED FOR WHICH SPACE IS ALLOCATED DYNAMICALLY. 
INFORMATION IS ENTERED INTO AND RETRIEVED FROM ELEMENTS 
OF THE STRUCTURE THROUGH A CALL TO THIS -MODULE AT A 
SPECIFIED ENTRY POINT DEPENDING ON THE TYPE OF DATA 
(IE. CHARACTER. BIT STRING, INTEGER. INTEGER ARRAY). 

A SIMPLIFIED PAGE TABLE IS SIMILARLY DEFINED AND 
ALLOCATED, AND IS LINKED TO THE APPROPRIATE PCB. 
**************************** */ 



^INCLUDE GEN EEC; 
^INCLUDE CSDCL; 
^INCLUDE PCBDCL; 
^INCLUDE CASESTM; 



DC! NUME_PAGES FIXED BINARY; 

DCL ECB_EEF_AKRAY (50) POINTER STATIC; 



DCL 1 PCB BASED (PCB_PTB) ALIGNED, 
2 E XT ER N A L_ N A M E CHAR (8) , 



2 IMMEDIATE RELATIVES, 

3 { PARENT, 

CHILD, 

LEFT SIDLING, 

RIGHT^ SIBLING ) FIXED BINARY, 

2 PCB_PAGE_TABLE_PTR POINTER, 

2 RESOURCES, 

3 FILE SHARE WRITE CTR FIXED BINARY, 

3 valid sys "Process bit ( i ) , 

3 RESOURCE_VEC (120) BIT (2) , 

3 FILE STATUS FIXED BINARY, 

3 MESSAGE POINTER POINTER, 



2 



PROCESS EXECUTION DATA, 
3 STATUS CHAR ( 5 ) , 

3 ( PRIORITY, 

QUANTUM , 

CYCLE TIME, 
PROCESS k ) FIXED 
3 REGISTERS (10) FIXED 



BINARY, 
BINARY (31) ; 



DCL 1 PAGE TABLE BASED (PAGE TABLE I ’ T R ) , 
2 NUMBER PAGES FIXED BINARY, 



2 TABLE (NUMB PAGES REFER 
FIXED BINARY (15); 



(w6mber_pages) ) 
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/* INITIALIZE PCB REFERENCE VECTOR TO NULL AND LA EEL 

INDICIES . THIS INITIALIZATION IS INTENDED TO EE 
DCNE AT IPL TIME BY THE SYSTEM SUPERVISOR. */ 



PCBSTRINT : ENTRY ; 

DCL EIRSI BIT ( 1) STATIC INIT( , 1«B); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I MITIV E_INTERR UPT_DI S ENABLER (ALL_I NT,SAV£INTS) ; 

IF FIRST THEN DO; 

FIRST = FALSE; 

PCB REF ARRAY = NULL; 

ALL€CAI1 PCB SET (PCB PTR) ; 

PCB REF ARRAY ( 1 ) = PCB PTR; 

PCE^PAGT TABLE PTR = NULL; 

QUANTUM,” 

CHILD, 

LEFT SIELING, 

RIGHT SIBLING, 

PARENT, 

FILE STATUS, 

FILE” SHARE RITE CTR , 

CYC IT time - = 07 

PRIORITY = 50; 

VALID SYS PROCESS = TRUE; 

STATUS = aJSREDYA ; 

EXTERNAL NAME = ! ERRHNDLR'; 

RESCURCE~VEC = 'OO'B; 

REGISTERS = 0; 

END; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SAVEI N TS) ; 
RETURN; ~ 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PC B_ STRUCTURES ENTRY NAME: GETPCB 

PARAMETERS 



INPUT 


OUTPUT 


_TYPE 


CONTENTS 


Parent 




Integer 


Process creator. 


Right 

Sibling 




Integer 


Child of the parent may be 

zero. 


External 

Name 




Char (8) 


External name of the process. 


Priority 




Integer 


Priority of the process. 


Sys__Proc 




Bit (1) 


System/User process boolean. 
Values: #0S cr #USER. 


State 




Integer 

Array 


Initial state vector used to 
set the CPU registers upcn 
allocation of a processor for 
execution. 




Internal 

Name 


Integer 


Process internal name. 


Cycle 

Time 




Integer 


Reschedule time period fcr a 
recurrent process. 




Error 


Integer 


Error condition code. Values: 
a) 205 - PCB space unavailabl 



EN TRY POINT 



description 



This entry point i 
created. A PCE is 
is available and t 
(PC5_LIKIT) is not 
returned to the in 
saved in the rCB R 
destroyed. The ent 
by a user process. 



s invoked when a new process is being 
allocated and initialized provided space 
he number of allowable processes 
exceeded. A process internal name is 
voxing module and PC 3 reference pointer is 
eference vector until the process is 
ry point is restricted from direct access 
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ENTRY POINT IMPLEMENTATION 



/* * 



^t***#*#**##***#**##*:** * * $ * j}t 

THIS ENTRY POINT IS INVOKED WHEN A NEW PCS IS TO BE 
ALLOCATED AND INITIALIZED. AN INTERNAL NAME IS 
ASSIGNED AND A PCB ALLOCATED If SPACE IS AVAILABLE 
(IF THE NUMBER OF ALLOWAELE PROGRAMS IN THE SYSTEM 
IS NOT EXCEEDED PRESENTLY 50). */ 



GETPCB: ENTRY (FATHER, BROTHER, EXT NAME, PRI, SYS PROC, STATE, 

XNTERNAL_N AM E, CYCLE, ERROR) ; 



DCL (FATHER,BR0THER,PRI,CYCLE,1NTEENAL NAME) 
FIXED BINARY; 

DCL EXT NAME CHAR (8); 

DCL SYS”* PROC EIT (1) ; 

DCL STATE (*) FIXED BINARY (31); 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I Mill VE_INTERRUPT_ DISENABLES (ALL_I NT, SA VEIN IS) ; 

/* GET INTERNAL NAME. */ 

DO INTERNAL NAME =1 TO PCB LIM 

WHILE" (PC3_REF_ARRAY7INTERNAL__NAME) -.= NULL) ; 
END; 

IF (INTERNAL NAME > PCB LIM) THEN DO; 

INTERNAL TJAME = 0; "ERROR = 205; GO TO R1 ; 

END; 



/* ALLOCATE AND INITIALIZE THE PCB. */ 
ALLOCATE PCB SET ( PCB PTR) ; 

PCB REE ARRAY (INTERNAL NAME) =PC3 PTR ; 

PCB" P A GE TAEL2 PIE = NULL ; 

QUANTUM /CHILD, LEFT 51 3LING, PROCESSR - 0; 

RESOURCE VEC = *0'1; 

STAIUS= "E^SUSPD; 

PARENT=FATHER ; 

RIGHT S I3LI N G=BR OTHER ; 

PRIORTT Y=PRI ; 

EXTERNA! NAME=EXT NAME; 

CYCLE TI]?E=CYCLE:" 

RESOURCE VEC = 1 00 ' B ; 

VALID S YE PROCESS = SYS PROC; 

DO 1=1 IO"1 0 ; 

REGISTERS (I) =STATE (I) ; 

END ; 



R 1 : 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT, SA VEI NTS) ; 
RETURN; " 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PCB STRUCTURES ENTRY NAME: FEIPCB 



PARAMETERS 

JPJPIJT OUTPUT TYP E CONTENTS 

Internal_ Integer Internal name cf the process 

Name ~ being destroyed. 

Error Integer Error condition code. Values: 

a) 201 - Invalid process name. 

b] 202 - Inactive PCB nunoner. 



ENTRY POINT DESCRIPTION ^ 

Deallocation of a PCB and associated Page Table, and freeing 
of the internal name for future use is accomplished when 
this entry point is invoked. Entry is restricted from direct 
access by user processes. 



entry_point_implEmentatjcn 



EE ALLOCA TIGN OF A PCB AND ASSOCIATED PAGE TABLE, AND 
EKEE1NG OF THE INTERNAL NAME FOR FUTURE USE IS 
ACCOMPLISHED WHEN THIS ENTRY POINT IS INVOKED. V 

RELPCB: ENTRY (INTERN AL_NAME, ERROR) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENA3LER (ALL_INT, SAVEINTS) ; 



/* VERIFY PCB NUMBER AND ACCESS. */ 

IF INVALID (INTERNAL_NAME) THEN GO TO B2; 

/* DEALLOCATE THE PCB AND PAGE TAELE. */ 
IF (PCE PAGE TABLE PTR-^NULL)_ THEN DO; 

P AGE_T A BIE PTR=PCE PAGE TABLE PTR ; 

FREE PAGE TABLE; 

END; 

PCB REF ARRAY (INTERNAL NAME) =NULL ; 

EEEl PCB; 



R 2 * 

CALL PRIMITIVE INTERRUPT ENABLER (ALL INT , SA VEX NTS) ; 
/*** ETJA3LE THE INTERRUPTS ***/ 

RETURN ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PC3_S TRDCTU R ES ENTRY NAME: FIND PI NAME 



PARAMETERS 

INPUT OU TPU T. TYPE CONTENTS 

PXnarje Char (8) Process external name. 

PIname Integer Process internal name. 

Error Integer Error condition code. Values: 

a) 206 - Process not found. 



ENTRY PQTNI DESCRIPTION 

This entry pcint searches the list of active PC3*s to find 
the process specified by external name and return the in- 
ternal name it found. 



ENTRY_POINT_IM£LEMENTATION 



/h j{c 3{c Jf. % ^ ^ ^ ^ sje sje * # :}c afic ' sjc sjc aje aje afc # sj: 

THIS ENTRY POINT SEARCHES THE LIST OF ACTIVE PCB'S 
TO ICC A T E THE PROCESS WITH EXTERNAL NAME (•PXNAME*) 

AND RETURNS ITS INTERNAL NAME (•PINAME 1 ). IE NOT 
FOUND AN ERROR CONDITION IS RAISED. */ 

FIND^PI NAME: ENTRY (PXNAME , PI N AME , ERROR) ; 

DCL PXNAME CHAR (8) ; 

DCL PINAME FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I MITIVE_IN TERR UPT_DIS ENABLER ( ALL_I NT , SA VEINTS) ; 

DO I = 1 TO PCB LIM; 

PCB PTR = PC"3 REF ARRAY (I); 

IF 1 (PCB PTR NULL) 8 (EXTERNAL NAME = PXNAME)) 

THEN DO; PINAME = I; GO TO”R3; END; 

END: 

ERROR = 206; 

PINAME = 0; 

R 3 * 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PR I MITIV E_I WTERR UP T_ ENABLER ( ALL_I NT r S A VEI NTS) ; 

RETURN; 
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ENTRY POINT SPECIFICATION 



MODULE NAME 



STRUCTURES ENTRY NAME, 



PC8DATA -GEN ERIC 



P AMMETERS 

IN P in t OUTPJ2T TYPE CONTENTS 

************c ommon Parameters To Each Entry Point* ********** 
PCB^Fumb Integer Process internal name. 



PCB^Fumb 

Put/Get 



Bit (1) 



Field# 



Integer 



Error 



Integer 



Process internal name. 

Operation identifier. Values: 

a) a)PUT - enter data in speci- 
fied field of the PCB. 

b) gDGET - return copy of 
data stored in specified 
PCB field. 



PCB field 

a) 3BORMNR 
used to 
specif i 
tion in 

b) 3 BE MV EC 
ence us 
the pag 

c) SJCHILD 
d 3CYCLE 

e) 3FSTAT 

f) 3FWCNTR 
q) SIFTS IB 
h\ MSGPTR 
i) SNR PGS 
i) 3PAT3ENT 
K) SPE MR 

l) SPRTRTY 

m) 3QUANTM 
n 3RESVEC 

o) aiRGTSIB 

p) a)S TATE 

q) QSTATUS 

r) SSYSPRO 

s) 3XNAME 



identifier. Values: 

- Page Taole refer- 
obtam address of a 

ed page. Put opera- 
valid. 

- Page table refer- 
ed to get a copy of 
e table. 

- PCB Child field. 

- PCB Cycle_Ti me . 

- File_3ta tus. 

- FiIe_Write^Cntr . 

- Left_Sibiinc. 

- Message_Pointer . 

- Number_paaes. 

- Farent. 

- Processor. 

- Priority. 

- Quantum. 

- Resource Vector. 

- Right silling. 

- Registers. 

- Status. 

- Sys_Process. 

- External Name. 



Error condition codes. Values: 
a) 201 - Invalid process name., 
bj 202 - inacti ve~ PCB number, 
cj 203 - Invalid field number, 
d) 204 - Invalid operation. 



ENTJY_£OIN^_ DESCRIPTION 

These entry points are invoked to enter or get a copy cf 
data from a PCB. They all have at least four parameters in 
common; the first three which identify the PCE numner, put 
or get operation, and the rCB field, respectively. The Error 
parameter is the last parameter in each entry point. 
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********************Generic Entry Points******************** 



DATCHAR Entry Point Specification. 



PARAMETERS 

INPUT, OL'IPUT TYPE CONTENTS 

Charparm Charparm Char (8) Transfer of character data. 



DATFIXB Entry Point Specification. 



PARAMETERS 

IN PUT OUTP UT TYPE CONTENTS 

Fixbparm Fixbparm Integer Transfer of integer data. 

apUT unauthorized in fields: 
SBRMVEC and 2NE_PGS. a, .GET not 
authorized in field SEEM V EC if 
tne Page Table is unallocated. 



DATEIT2 Entry Point Specification. 



PARAMETERS 



INPUT 


OUTPUT TYPE 


CONTENTS 


L Li m 

*r>* 


Integer 


Array lower limit. 


U_Lim 


Integer 


Array upper limit. 


B2ary 


B2ary Bit (2) 

Array 


Transfer of bits data into or 
from an element of, portion of 
or the entire resource vector. 


DATAPYS 


Entry Point Specification. 


PARAMETERS 

INPUT OUTPUT TYPE 


CONTENTS 


L_ L i m 


Integer 


Array lower limit. 


U_Lin. 


Integer 


Array upper limit. 


SFBary 


SFEary Integer 

Array 


Transfer short integer array 
data into or from an element 
of, portion or. or the entile 
Page Table Vector. c)G ET is not 
authorized if the table is not 
allocated. 


DATAPYL 


Entry Point Specif ication . 


PARAMETE 
I N PU T 


RS 

OUTPUT TYPE 


CONTENTS 


LFBar y 


LErary Integer 

Array 


Transfer long integer array 
(1 a t a into or from t n e P C L 
field - Re g is t e r s . 
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DATEIT1 Entry Point Specification 



PAB AMETE £S 

INPUT OUTPUT TYPE CONTENTS 

Bitlparm £it(1) Transfer a copy of data from 

PCB field Sys_process only. 
Field initialized when process 
created. 



DAIPTB Entry Point Specification. 



PARSMFTPR^ 

INP UT OUT PUT TYPE CONTENTS 



Ptrparm Ptrparra Pointer . Transfer pointer data identi- 
fying the process's message 
buffer. 



ENIBY POINT DESCR IPT ION 



The entry point is selected 
cedure vnich determines the 
number of arguenents in the 



by a preprocessor generic pro- 
appropriate entry point by the 
call and their data type. 
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jfc*******#**;**********:*:)}; :$< * * * * 

THE FOLLOWING ENTRY POINTS ARE INVOKED TO ENTER IN 
Cfi GET A COPY OF DATA FROM A PCB. THEY ALL HAVE AT 
LEAST FIVE PARAMETERS. THE FIRST IS THE PCB NUMBER 
THE SECOND SPECIFIES IF THE OPERATION IS A PUT OR A 
GET, THE THIRD IDENTIFIES THE FIELD, THE NEXT 
PARAMETERS ARE DATA PARAMETERS, AND THE LAST 
PARAMETER IS AN ERROR PARAMETER. 



St:***********#*************** 



DCL (PCB NUMB, FIELD#, ERROR) FIXED BINARY, 

PUTGlT BIT (1) ; 

DCL (L L I M , U LIM) FIXED BINARY; 

LCL ITJDX FIXED BINARY; 

DCL CHAR L LIM FIXED BINARY STATIC INIT(1), 

CHAR - U — LI M FIXED BINARY STATIC INIT 2), 

FIXE - L — LIM FIXED BINARY STATIC INIT(l|, 

FIXE - U — LI M FIXED BINARY STATIC INIT (12), 
BIT2~L LIM FIXED BINARY STATIC INIT(I), 

EIT 2 — U LIM FIXED BINARY STATIC INIT 1 , 

RFS YEi: U LIM FIXED BINARY STATIC INIT (120), 
ARYX L X iH FIXED BINARY STATIC INIT(I), 

A R Y S — U , L I I’i FIXED BINARY STATIC INIT 1), 

A R Y I - L LIM FIXED BINARY STATIC INIT (1) , 

AR YI — U — L IM FIXED BINARY STATIC INIT 1), 

EIT 1 L — L1K FIXED BINARY STATIC INIT(I), 

EIT 1 — U — LI M FIXED 31 NARY STATIC INIT(I), 

PTR X XIM FIXED BINARY STATIC I NIT(1), 

PTR X XIM FIXED BINARY STATIC INIT(1); 



THIS ENTRY POINT IS INVOKED TO ENTER OR GET A COPY 
OF CHARACTER TYPE DATA. */ 



DATCHAfi: ENTRY (PCB_NUMB, PUTGET, FIELD# ,CHARPARM, ERROR) ; 

LCL CHARPARM CHAR (8) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I EITIVE_IN TERR UP T_DIS ENABLER (ALL_I NT,SAVFIN13) ; 

/* VERIFY PCB NUHEEF, ACCESS ANE OPERATION. */ 
IF (IN V AIID (PCB NUMB)) THEN GO TO R4; 

IF ((FIELD# > CHAR U LIM) j (FIELD# < CHAR_L_LIM) ) THEN 
DO ; 

ERROR = 203; 

GO TO R4 ; 

END; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED V 

J.NDX = 2* FIELD# ; 

IF (PUTGET = a) GET) THEN INDX = INDX-1; 

DO ACTION OF CASE (INDX); 

Case ( i ) T cid* rp arm = status; fndcase; 

CASE (2): STATUS = CHARPARM; ENDCASE; 

CASE (3) : CHARPARM = EXTERNAL NAME; ENDCASE; 

CASE (4): EXTERNAL NAME = ClEAXPARM; ENDCASE; 
END_CE i _CASES ; 

R4 : 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (AI.L_I NT, SAVlI NTS) ; 
RETURN; 
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/* *. ****************'$***# 
THIS ENTRY POINT IS USED TO ACCESS INTEGER 

(FIXED BINARY) TYPE DATA. */ 

DATFIXE: ENTRY (PCB^NUMB , PUTGET , FIELD# , FI XBPARM , ERROR) ; 

I'CL FIXBPARM FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIEITIVE_INTERRUPT_DISFNABLER (ALL_INT, SAVEINTS) ; 

/* VERIFY PCB NUMEER, ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R5; 

IF ( (FIELD# < TIXB L LIM) ) (FIELD# > FIXB U LIN) ) THEN 
DO; ERROR = 203; GO~TO R5; END; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

I'NDX = 2 * FIELD#; 

IF (PUTGET = a)GET) THEN INDX = INDX - 1; 



DO ACTION OF CASE (INDX) ; 

CASE (1)7 FIXBPARM = PRIORITY; ENECASE; 

CASE (2): PRIORITY = FIXBPARM; ENDCASE; 

CASE (3) : FIXBPARM = QUANTUM; ENDCASE; 

CASE (4 : QUANTUM = FIXBPARM; ENECASE; 

CASE (5) : FIXBPARM = PARENT; ENDCASE; 

CASE (6): PARENT = FIXBPARM; ENDCASE; 

CASE (7): FIXBPARM = CHILD; ENDCASE; 

CASE (8): CHILD = FIXBPARM; ENECASE; 

CASE (9): FIXBPARM = LEFT SIBLING; ENDCASE; 

CASE (10) : LEFT SIBLING =~FIXBPAEM; ENDCASE; 

CASE(II): FIXBPARM = RIGHT SIBLING; ENECASE; 

CASE (12): RIGHT SIBLING = TIXBP ARM; ENECASE; 
CA3E(l3): FIXBPARM = PROCESSR; ENECASE: 

CASE (14): PROCESSR = FIXBPARM; ENECASE; 

CASE (15): IF (PCB PAGE TABLE PTR = NULL) THEN 
FIXEPAEH =0; ” 

ELSE DO; 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 
FIXEPAR M =~ NUMBER PAGES; ~ 

END; 

EN EC A S E * 

CASE (16): ERROR = 204; ENDCASE; 

CASE ( 1 7) : IF (PCB PAGE TABLE PTR = NULL) THEN DO; 
FIXBPARM = 0; ERROR = 204; 

END; 

ELSE DO ^ 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 

IF (7FIX3PARM < 1) 

(FIXBPARM > NUMBER PAGES)) THEN 
ERROR = 204; 

ELSE FIXBPARM = TABLE (FIXBPARM) ; 

END; 

ENECASE* 

CASE (16) : ERROR = 204: ENDCASE; 

CASE (19) : FIXBPARM = FILE STATUS; ENECASE; 

CASE (20) : FILE STATUS = FIXBPARM: ENECASE; 

CASE (21): FIXBPARM = FILE SHARE WRITE CTR; ENDCASE; 
C A S E ( 2 2) : FILE SHA RE_ WRI TI_CTR = FIXBPARM; ENECASE; 

CASE (23) : FIXBPARM = CYCLE TIME; ENDCASE; 

CASE(24): C I CL E TIME = FIX'BPAKM; ENDCASE; 

END_CE CASES; 



/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SA VEI NTS) ; 
RETURN; ^ 
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/* ♦a*******#*##*#***##**#:} e * jjc j$c $ # 

THIS ENTRY POINT IS USED TO ACCESS EIT(2) ARRAY DATA 

V 

D AT BIT 2 : ENTRY (PCB NUMB, PUT GET, FIELD#, L LIM,U LIM , B2 ARY , 

ERROR) ; 

DCL E2ARY (*) BIT (2) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR IMITIVE_IN IERR UP I_DIS ENABLER ( ALL_I NT, SAVEINTS) ; 

/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PCE NUMB)) THEN GO TO R6; 

IF ((FIELD# < BIT2_L LIM) | (FIELD# > BIT'2_U LIM)) THEN 
DO ; 

ERROR = 203; 

GC TC R6; 

END: 

IF ( (L_LIM < 1) | (U LIM > RES_VEC_U LIM)) THEN 

DO : 

ERROR = 204; 

GO TO R6 ; 

END ; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

I NDX = 2 * FIELD#; 

IF (PUIGET = a) GET) THEN INDX = INDX - 1; 

DO ACTION OF CASE (INDX); 

CASE(1)7 DO 1 - L LIM TO U LIM; 

B2ARY (X) = RESOURCE VEC (I) ; 

END; 

ENECASE : 

CASF (2) : DO I = L LIM TO U LIM: 

RESOURCE VEC (1 ) = B^ARY (I) ; 

END; 

ENICASF: 

E-ND_CF_C ASES ; 

R6; 

/*** ENAELE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL INI, SAVEINTS) ; 
RETURN; 
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✓ 4 44444444444 44444 

THIS ENTRY POINT IS USED TO ACCESS FIXED BINARY (15) 
ARRAY DATA */ 

DATARYS; ENTRY (PCB NUMB,PUTGET, FIELD#, L LIM,U LI M , SF E ARY , 

ERROR) ; ~ 

DCL SFBASY (*) FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FfiIMITIVE_INTEREUPT_DISENABLER (ALL_INT, SAVEINTS) ; 

/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB) ) THEN GO TO R7 ; 

IF ( (FIELD# < ARYS L LIM) | (FIELD# > ARYS_U LIM)) THEN 
DO ; 

ERROR = 203; 

GO TC R7 ; 

END; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD# ; 

IF (PU1GET = a)GET) THEN INDX = INDX - 1; 

DO ACTION OF CASE (INDX) ; 

CASE (1)7 IF (PCB PAGE TABLE PTR = NULL) THEN 
ERROR = 204; 

ELSE DO: 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 

IF (7L LIM~< 1) J (U IIM > NUMBER, PAGES) ) 
THEN ERROR = 204; “ 

ELSE 

DO I = L LIM TO U LIM; 

SFBARY7I) = TABLE (J); 

END; 

END; 

EN EC A S E * 

CASE (2): IF ( (L LIM 1) | (U LIM < 1)) THEN DO; 

ERROR =204; 

RETURN ; 

END; 

IF (PCB PAGE TABLE FIR -*= NULL) THEN DO; 
PAGE_IABL'E PTR = PCB PAGE_TABLE_PTE ; 

FREE Page TABLE; 

END; 

NUMB PAGES = U LIM; 

ALLOCATE PAGE TABLE SET (PAGE TABLE PTR) ; 

PCB PAGE TABLE! PTR = P AGE_TAllE_PlR ; 

DO I = 1 TO U DIM; 

TABLE (I) = SFBARY (I) ; 

END ; 

ENECASE : 

END OF CASES; 

R7: ~ “ 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE I NT LRFi UP T_ EN ABLER ( ALL_I NT , S A VEI N T S ) ; 
RETURN ; 
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/************** ********** * * * * * 
THIS ENTRY POINT IS USED TO ACCESS FIXED BINARY (31) 
ARRAY DATA. */ 

DATARYL: ENTRY (FCE_NUMB, PUTGET,FIELD#,LFBARY, ERROR) ; 

DCL 1FBARY (*) FIXED BINARY (31); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I KITIVE^IN TERR UP T_DIS ENABLER (ALL_INT r SA VEINTS) ; 

/* VERIFY PCS NUMBER# ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R8; 

IF ((FIELD# < AEYL_L_LIM) ( (FIELD# > ARYL_U_LIM) ) THEN 

I>0 ; 

ERROR = 204; 

GC TC R8 ; 

END; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT TEE FIELD AND OPERATION DESIRED */ 

IN DX = 2 * FIELD#; 

IF (PUTGET = a) GET) THEN INDX = INDX -1; 

DO ACTION Or CASE (INDX) : 

CASE (1)7 DO I = 1 TO 10: 

LEBARY (I) = REGISTERS (I) ; 

END ; 

ENECASE; 

CASE (2) : DO I = 1 TO 10; 

REGISTERS (I) = LFEARY (I) ; 

END; 

ENECASE; 

E N D_ C E_ CASES ; 

B 8 * 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , S AVEI N TS) ; 
RETURN; ~ 

/if. ifififififififififififif.ifififififif.if.ififif.-if if if if if if 

' THIS ENTRY POINT IS USED TO ACCESS BIT(1) DATA. */ 

DATE IT 1 : ENTRY (PCB^NUMB , P UTGET , FIELD #, BIT 1PAR11, ERROR ) ; 

DCL EIT 1 P ARM BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL ERI KI TIV£_IN TERR UPT_DIS ENABLER ( ALL_I NT , SA V El N TS) ; 

/* VERIFY PCb NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PCE NUMB) ) THEN GO TO R9 ; 

IF ( (FIELD# < BIT 1_L LlM) ( (FIELD# > Bill U LIH) ) THEN 
DO ; 

ERROR = 204; 

GO TC R9 ; 

END ; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT I H E FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD#; 

IF (PUTGET = a> GET) THEN INDX = INDX - 1; 

DO ACTION OF C AS E (INDX) ; 

CASE (1)7 Eli IP ARM = VALID SYS PROCESS; ENDCASE; 

CASE ( 2 ) : ERROR = 204 ; ENECASE; 

END OF CASES; 



R9 : 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE 1 N T EH H U P T_ ENABLER (ALL_INT,SAVEIN'JS) ; 
RETURN ; 
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THIS ENTRY POINT IS USED TO ACCESS POINTER DATA. */ 

DATPTR: E NTRY(PC£_ NUMB, PUTGET,FI EL D#,PTRPARM, ERROR) ; 

DCL FIREARM POINTER; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLER (ALL_INT, SAVEINIS) ; 

/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PC E NUMB)) THEN GO TO RIO; 

IF ((FIELD# < PTR_L_LIN) j (FIELD# > PTR U LIM) ) THEN 
DO ; 

ERROR = 203; 

GO TO RIO; 

END ; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD#; 

IF (PUIGZT = a) GET) THEN INDX = INDX - 1 ; 

DO ACTION OF CASE (INDX) ; 

CASE (1)7 PTRPARM = MESSAGE POINTER; ENDCASE; 

CASE (2): MESSAGE POINTER =~PTRPARM; ENDCASE; 

END_OZ_CASES; 

RIO: 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE_INTERR UP T_ ENABLER (ALL I NT, SAVEI NTS) ; 
RETURN; 



LOCAL PROCEDURE 



INVALID CHECKS THE PCB# PASSES TO INSURE THAT THE 
PROCESS CONTROL BLOCK IS CURRENTLY ACTIVE AND ALSO 
SETS THE POINTER TO THE PROPER PCB FOR DATA ACCESS. 

V 

DCL INVALID ENTRY (FIXED BINARY) RETURNS (EIT ( 1) ) ; 

INVALID: P ROC (PCB#) R ETURN S (BIT ( 1) ) ; 

DCL PCB# FIXED BINARY; 

IF ((PCB# = 0) S (Pul GET = 3GET) ) THEN 

PCB# = CURRENT PROCESS (PROCESSOR) ; 

IF ((PCB# < 1) | (PCB# >”50)) THEN DO; 

ERROR = 201 ; 

RETURN (TRUE) ; 

END : 

PCB PTR = -PC E F.EF ARRAY (PCB#) ; 

IF 7PCB PTR =“NULI) THEN DO; 

EBROlt = 2 02; 

RETURN (TRUE) ; 

END ; 

RETURN (F ALSE) ; 

END INVALID; 

END PCBSTR; 
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MODULE SPECIFICATION 



NAME: RCE_ HANDLER ' TYPE: PRIMITIVE 

PARAflETEBS 

INPUT OUTPUT TYPE CONTENTS 

Parameters Specified With The Entry Point Specif icabion. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMgTEES^ PURPOSE. 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked to dis- 
able all interrupts while 
RGB Handler is in execution. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked to re- 
enable all interrupts which 
were disabled by tne current 
module in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PURPOSE 

Invoked by other primitives ana only system processes. 



DATA STRUCTURES USED 

NAME FIELD TYPE PURPOSE/ VALUE S; 

Saveint Bit(1) Array used to save the status 

Array of the interrupts; ar guement 

in call to Disabler and 
Enabler. 



This structure has been de- 
signed to store administrative 
and operational data used in 
the managing cf system resour- 
ces; u.e.. Semaphores, Files, 
Devices, and data storage con- 
tainers (PCT 1 s) . 



Assigned 


Bit (1) 


Determines if the resource 
Control Block is assigned to 
a resource. 


Creator 


Integer 


Process that created the RCB . 


Owner 


Integer 


Process that has been assigned 
control of the resource. 


Ext^Name 


Char (8) 


External name of the resource. 


De vice_ 
Status 


Bit (1) 


Device access state. Values: 

a) #G0 - the device is active 

b) #1IROLD - access to tiles 
ana PCT tor this device is 
not author! ;:eii. 

c) Not applicable Iol Sema- 
phore I< C 13 1 s . 



Rescurce_ , Structure 

Control 

Block 
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Device_ Integer Device internal name. 

Iname 

Shared Integer Resource access classification 

Private Values: a) ##SHRD or t*#PBIV - 

shared or private resource. 

Cntr Size Integer a) Semaphore - Buffer, Job q, 

Print Jobs, etc. counter. 

b) File - file length. 
c'i Device - not used. 

d) PCT - file space available. 

PCT_Narae Char(8) PCT external name. 

Open File Integer Applicable for files. Values: 

a; # #N0 V AIL - file unavailable 
bj ## AV AIL - file available 

c) # # READ - file opened for 
reading only 

d) # # WRI T£ - file opened for 
writing only. 

File_Type Integer Not applicable for semaphore 

or device resources. Values: 

a) ##TEflPF - temporary file or 
type file allowed on PCT 

b) # rfPER MF - permanent file or 
type file allowed on PCT 

c) ##TORPF - both file types 
allowed on PCT. 

Left_Que Pointer Oualifies queued messages. 

a) Semaphore - outstanaina 
process reguest messages 

b) File - current file open 
requests satisfied. 

c) D evice - current device 
access reguests satisfied 

d) PCT - not used. 

Right_Que Pointer Qualifies queued messaaes. 

a) Semaphore - outstanding 
process release messages 

b) File - outstanding file 
open requests 

c) Device - outstanding device 
access reguests 

d) PCT - outstanding file 
creation reguests. 
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L_R_Queue Based 

From Integer 



To Integer 



Priority Integer 
File_Data Integer 



Msg_Ptr Pointer 



Q_lop Pointer 

Q_£ottora Pointer 



This structure is used tc save 
data required for the manage- 
ment of the resources and the 
matching of messages. 

Internal name cf the process 
doing the Request or Release 
saved in the Left/Right queue 
for Semaphore ECB's, respec- 
tively. Internal name of the 
process accessing or request- 
ing access to a file or device 
resource; or file creation. 

Internal name cf the process 
expected to do a Release or 
Request, saved in a Semaphore 
Left/Right queue. 

Also used to save the Sema- 
phore to be used in an answer 
to a message. 

Precedence of the process. 

Not applicable for Semaphore 
or Device RCE*s. Values; 

a) Semaphores - not applicable 

b) Devices - net applicable 

c) File Left Oue - ##REAE or 
# # WRITE (file opened cn a 
read or write for a process 
identified in the FROL 
Field) 

d) File Right gue - # #RE AD or 
## WRITE, fclnEADA or #SWRITA 
(outstanding read/write 
open request sacrificed) , 
#$READS or # # WRIT S (read/ 
write opened request sacri- 
ficed) , or ##WKITH (out- 
standing v/rite-open request 
for a non-ewned shared file 

e) PCT Kight_Que - dummy file 
internal name for outstand- 
ing file creation requests. 

A) Semaphores - qualifies the 
message buffer of a process 
doing a Request or a temp- 
orary message buffer for 
outstanding Releases 
b) Not used in the other type 
RGB queues. 

Backward queue link. 

Forward queue link. 



MODULE DESCRIPTION 



This primitive has been implemented to provide resource 
management lacilities to tne various system processes and 
primitives. Inese services include creating and destroying 
Resource Control block.''.; entering and getting data; anc 
controlling access to the various type resources. The entry 
points utilizing the data .structures defined above have been 
specified separately. 
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ENTffYPQINl IMPLEMENTATION 



^INCLUDE NAMCHGR; /***** RCB HANDLER *****/ 

/* jjt****#***###**#**^#*### * $ * * * 

THIS PRIMITIVE HAS BEEN IMPLEMENTED TO CENTERALIZE THE 
LOCATION Cf HESOORCE DATA AMD TO HIDE DATA STORAGE 
METHODS. IT PROVIDES THE INTERLACE TO PROCESSES AND 
PRIMITIVES REQUIRING SUCH SERVICES AS CREATING RESOURCE 
CONTROL BLOCKS: DESTROYING RCBS; ENTERING CR ACCESSING 

DATA: MANIPULATING QUEUE ENTRIES USED TO STORE DATA 

CONCERNING AVAILIBILIT Y, ACCESS, AUTHORIZATION, ALLOCATION 
AND DE AILO CATION OF THE RESOURCES; AND MATCHING OE 
INTERPROCESS COMMUNICATION MESSAGES. */ 

PRIMITI V E_RCB^_ HANDLER : PROC OPTIONS (MAIN) ; 



^INCLUDE GENE-EC; 
^INCLUDE CSDCL ; 
S&INCLUDZ ECEECL; 
^INCLUDE CASESTM; 



DCL 



DCL 



/*** RESOURCE CONTROL STRUCTURE ***/ 
RESOURCE. CONTROL BLOCK (120) STATIC , 

2 ASSIGNED SIT71) IMIT((120) (1) »0»B) 

CREATOR FIXED BINARY, 

OWNER FIXED BINARY, 

LEFT , QUE POINTER, 

RIGHT QUE POINTER, 

EXT NAME CHAR (8), 

DEVICE STATUS BIT(1), 

DEVICE~INAMS FIXED BINARY, 

SHARED PRIVATE FIXED BINARY, 

CNTR SIZE FIXED BINARY, 

PCT "NAME CHAR (3) , 

OPEIT FILE FIXED BINARY, 

FILE~TYPE FIXED BINARY; 

QUEUl BASED (LRQ PTR) , 

TCP POINTER, 

FROM FIXED BINARY, 

TO FIXED BINARY, 

PRECEDENCE FIXED BINARY, 



FILE DATA FIXED BINARY, 
MSG VTh POINTER, 

Q BOTTOM POINTER 



DCL (ADDRESSOR , ADDRESSEE, DATA, RINAME) FIXED BINARY; 
DCL bRRCR FIXED BINARY; 

DCL (REQ EEL, Q 4 ) BIT ( 1 ) ; 

DCL (MSGlTR, START, TEMP) POINTER; 



/*** LOCAL SUBROUTINE ENTRY POINTS ***/ 

DCL VALID ENTRY (FIXED BINARY) RETURNS (bIT(1)), 

REMOVEQ ENTRY FIXED BINARY ,BIT (1) , POINTER, POINTER) , 
INSERT ENTRY (rIXLD BINARY, BIT ( 1) , POINTER, 

FIXED BINARY) , 

LOOKUP ENTRY (POINTER, FIXED BINARY, FIXED BINARY), 
QUEPCSIT ENTRY (FIXED BIN ARY, POINT E h) ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCB_HANDLER ENTRY NAME: CREATE_RCR 

PARAMETERS 



INPUT 


OUTPUT 


TYPE 


CONTENTS 


Type 

i 




Integer 


Specifies resource type to be 
created. Values are: ^DEVICE, 
#FILE, #SEMFOR, or #PCT. 


RXNaSie 




Char (8) 


Resource external name. 


Owner 




Integer 


Owner 1 s internal name. 


Size 




Integer 


File length or number of re- 
source units. 


S or P 




Integer 


Shared or private resource. 


Mounted 




Char (8) 


/pCT external name - for File 
and Device resources only. 


Dev_Name 




Integer 


Device internal name - for PCT 
and File resources only. 


Open 




Integer 


File status - ##AVAIL or 
##NOAV L . 


T_File 




Integer 


a) Files - # #TE MPF or # # EERMF 

b) PCT 1 s - ##TEMPF, # #PEEMF or 
# #TORPF . 




RIName 


Integer 


Resource internal name. 




Error 


Integer 


Error condition code. Values: 
a) 101 - invalid resource type 

bj 102 - RCB unavailable 

cj 103 - invalid resource name 

d) 104 - unallocated resource. 



EH1HI-£0I1!3-£ESCRIPTI0N 

This entry point is ased to create an RCB of the type 
specified and to return the internal name. Only system 
procasses may invoke this entry point. 
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ENTRY POINT IMPLEMENTATION 



THIS ENTRY POINT TO RCB HANDLER IS UTILIZED TO CREATE AN 
RCB OF THE TYPE SPECIFIED; TO ENTER THE DATA IN THE 
VARIOUS EC £ HELPS: TO RETURN THE RCE INTERNAL N AM-E , 
"RENAME"; AND TO RETURN AN ERROR CODE, "ERROR". */ 

CREATE RCB: ENTRY (TYPE ,RXNAME, CWNR, SIZE, S OR P, MOUNTED, 

DEV_NAME, OPEN, T_FILE, HlUAME, ERROR) ; 

DCL (TYPE, OWNR , SIZE, DEV NAME , OPEN , CRE ATR , LIMIT , I) 

FIXED BINARY; 

DCL (RXNAME, MOUNTED) CHAR (8); 

DCL (S OR P, X RILE) EIXED BINARY; 

DCL SYSPRS BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIKITIVE_INTERRUPT_DISENABLER (ALL_INT , S A VEIN TS ) ; 

GREAT E= CURRENT PROCESS (SYS PROCESSOR); 

IE l (TYPE < 1)~( (TYPE > 47) THEN DO; 

ERROR = 101; GO TO RETURN 1 ; END; 



DO_ACTION_OF CASE (TYPE); 

CASE ( 1 ) : 1=1; LIMIT=SEM_LIMIT; ENDCASE; 

CASE (2) : I=DEV_L_LI MIT ; LIMIT=DE V_U_LIMIT ; ENDCASE; 

CASE (3) : 1= EILE_L_LI MIT ; LIMIT=FILE_U_1IKIT ; ENDCASE; 

CASE (4 ) : "l= PCT_L LIMIT; LIMIT= PCT__U_LIHIT ; ENDCASE; 
EH D GF CiiSES ; 

DO WHILE ( (ASSIGNED (I) ) 8 (I <= LIMIT)); 1 = 1+1; PND; 

> LIMIT) THEN DO; ERROR=102; GO TO RET URN 1 ; END; 



IF (I 

ASSIGNED (I) =’ TRUE; 

CREATOR (I) = CREATE; 

OWNER (I) = OWNR; 

LEFT QUE(I) , RIGHT QUE (I) = NULL; 

ext "Name (i] = rxnahE; 

DEVICE IN A ME (I) = DEV NAME; 

DEVICE'STATUS (I) = fcfrEO; 

SH ARED~PF.IVAIE (I) = S OR P; 

CNTP SIZE (I) = SIZE; 



PCI "NAME (I) = MOUNTED; 

OP E"N FILE ( I ) = OPEN; 

FILElTYPE (I) = T_ FILE; 

RINAME = I: 

GO TC RETURN 1; 
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ENTRY POINT SPECIFICATION 



NODULE NAME: RCB_HANDLER 

PARAMETERS 

INPUT OUTPUT TYPE 

Addressor Integer 

Addressee Addressee Integer 



Semaphore Integer 

M_£tr Pointer 

Q# Bit (1) 

Match Bit (1) 

Error Integer 



ENTRY NAME: RCB_ MATCH 



Internal name cf the process 
which did a Reguest/Release. 

To which process the Request 
or Release was addressed 

Internal name of the message 
semaphore used in the Request 
or Release. 

Qualifies the Requestor's mes- 
sage buffer or the temporary 
buffer from an unmatched 
Release. 

Left or Right gueue identifier 
Values: #LEFT for an incoming 
Request or # RIGHT for an in- 
coming Release. 

Boolean which identifies to 
the invoker if a match has 
been found. 

Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource. 



CONTENTS 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAMJ PMMOSE 

Allocator To determine if there is an outstanding 

Release or Request which matches a cur- 
rent Request or Release, respectively. 



INTRY_P0I1!I_ DESCRIPTION 

This entry pcint has been implemented to facilitate the 
allocation of resources and matching of interprocess 
communication messages. In this implementation, the actual 
techniques used to perform the services indicated above and 
the nature of the queues are hidden from the processes; 
hense mod if ication "has been simplified. 
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ENTRY POINT IMPLEMENTATION 



/************************ ***#* 
THIS ENTRY POINT TO RCB HANDLER IS UTILIZED BY TIIE MESSAGE 
ALLOCATOR TO DETERMINE IF A REQU EST/REL E A S E MESSAGE 
MATCHES A QUEUED-UP RELEASE/REQUEST MESSAGE. "ADDRESSOR" 

" ADDRESSEE " , " SEMAPHORE" , AND "Q*" MUST BE SPECIFIED 

BY THE CALLING PROCEDURE. IE A MATCH IS NOT FOUND "MATCH" 
IS SET TO FALSE. IF A MATCH IS FOUND "MATCH" IS SET TO 
TRUE AND "M PTR" (MESSAGE POINTER) AND "ADDRESSEE" ARE 
SET TC THE VlLUES STORED IN THE QUEUE. */ 

PRIMITIVE RCB_ MATCH : ENTRY (ADDRESSOR , ADDRESS EE , S EM AP KOBE, 

FLPTR,Qff f MATCH, ERROR) ; 

DCL SEMAPHORE FIXED BINARY, 

M PTR POINTER, 

MITCH BIT ( 1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVS_INTERRUPT_DISENABLER (ALL_I NT , SA VEIN IS) ; 



MATC 
IF 
IF 



If ( 

TEMP 
IF ( 
DO 



EN 

ELS 

DO 



(VALID (SEMAPHORE) ) THEN DO; 

? Q # = #LLFT) THEN START = RIGHT QUE (SEMAPHORE) ; 
ELSE START = LEFT QUE (SEMAPHORE) ; 

(START = NULL) THEN GO TO RETURN2; 



H = FAi.SE; 

VALID (SEMAPHORE) ) _THEN DOj_ 

Q# = 

LSE 
STAR 1 
= SIART , 

ADDRESSEE = 0) THEN 

WHILE ( -» ( (TEMP— > TO = 0) | (TEMP->TO = ADDRESSOR) ) ) ; 
IF (TEMP->Q BOTTOM = START) THEN GO TO RETURN 2; 

ELSE TEMT = TEMP->Q_BCTTOM ; 

e ; 

"WHILE H (( (TEMP->TO = ADDRESSOR) j (TEMP-> TO = 0) ) 

6 (TEMP->FROM = ADDRESSEE))); 

IF (TEMP— > Q BOTTOM = START) THEN GO TO RETURN2; 
ELSE TEMP = TEMP -> Q BOTTOM; 

D; 

ESS EE = TE MP->FRCM ; 

E = TEMP-> MSG_PTR ; 

H = TtfUu ; 

RZMCVEQ (SEMAPHORE, (-«Q #) , TEMP, START) ; 

TEMP -> L R QUEUE; 



EN 
A DDR 
M PT 
MlTC 
CALL 
FREE 
END; 

GO TO RE1URN2; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RC£_HANDLER ENTRY NAME: RCBPUTQ 

PARAMETERS 



INPUT OUTPUT 


TYPE 


. CONTENTS 


RIName 


Integer 


Resource internal name. 


Reg^Rel 


Bit (1) 


Queue identifier. Values are: 
#LEFT or #RIGHT ; #0S or SUSER 
for the ready active queue: 
#REDYA . 


Addressor 


Integer 


Internal name cf the process 
being inserted in the queue. 


Addressee 


Integer 


Internal name of the process 
to which the message is ad- 
dressed; or the semaphore to 



be used in reply to a file 
creation task- 



Pri 


Integer 


Priority of the process being 
queued. 


MsgPt r 


Pointer 


Qualifies the process*s mes- 
sage buffer. 


Data 


Integer 


a) Dummy file internal name 
for outstanding file crea- 
tion requests. 

b) ##SEAD or ftfWRITE fcr file 






open reguests which were 
allocated (file left gue) 
c) ##READ or ##WRITE for un- 
allocated open requests; 

# #REA DA or ##WRITA for un- 



allocated, sacrificed file 
open requests; ##RZADS or 
##WRITS for allocated, but 
sacrificed, file open re- 
quests; and ## wRITH fcr an 
outstanding file open for 
write access to non-ownea, 
shared file. 



ehtjy_potnt_rescriftion 

This .entry point is invoked to enter a process by priority 
into a specified queue and to save specific data. 
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ENTRI_P0IN2_I WPLEMENTATION 



/**#**. **#**********:$:#*#*:<«***## 

THIS ENTRY POINT TO RCE HANDLER IS USED TO ENTER A 
PROCESS (" ADDRESSOR") BY PRIORITY ("PRI") IN A SPECIEIED 
QUEUE ("BEQ REL”) FOR THE RESOURCE SPECIFIED BY "RINAME" 
"ADDRESSOR’C " ADDRESSEE" , "PRI", "M3GPTR" , AND "DATA*' AR 
STORED IN IHE APPROPRIATE QUEUE ELEMENT FIELDS. */ 

RCEPUTQ : ENTRY ( RINAME, REQ REL, ADDRESSOR, ADDRESSEE, PHI, 

HSGPTR,DATA7ERROR) ; 

DCL PBI FIXED BINARY; 

/*** DISENAELE ALL INTERRUPTS ***/ 

CALL PRIMIIIVE_INTERRUPT_DIS ENABLER (ALL_INT, SAVEINIS) ; 

IF (VALID (RINAME) ) THEN DO; 

ALLOCATE L R QUEUE SET (LRQ PTR) ; 

I R Q_ P T R ->“ FROM = ADDRESS ORJ 
LRQ PTR -> TO = ADDRESSEE; 

LRQ PTR -> PRECEDENCE = PRI; 

LRQIPTR -> FILE DATA = DATA; 

LRQ PTR -> MSG PTR = MSGPTR; 

CALI INSERT (RIUAME, REQ REL, LRQ PTR, PRI); 

END; 

GO TO RETURN 3; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RC3_ 


HANDLER 


ENTRY NAME: ftCBGETQ 


PARAMETERS 
INPUI OUTPUT 


TYPE 


CONTENTS 


RIName 


Integer 


Resource internal name. 


Reg^ Rel 


Bit (1) 


Queue identifier. Values are: 
#LEFT, bright, #CS, and #USER. 


Addressor 


Integer 


Internal name of process to be 
removed from the queue. 


Addressee Integer 


Data stored in the TO Field 
of the queue. 


MsgPtr 


Pointer 


Process message buffer pointer 


Data 


Integer 


Data stored in the File Data 
Field of the queue. 


Found 


Bit (1) 


Indicates if the specified 
process was found. 


Q_Empty 


Bit (1) 


Queue status after removal. 


Error 


Integer 


Errqr condi tion coda . Values: 



ai 103 - invalid resource name 
b) 104 - unallocated resource. 



£NT_FY_POIN £ ASCRIPTION 

This entry is invoked to remove a process and associated 
data from the specified resource queue. The data is returned 
to the invoker and the queue element is deallocated. 
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ENTRY PO INT IMPL EME N TAT ION 



sit***#**#*##******#********#* 

THIS ENTRY POINT TO RCB HANDIER IS USED TC REMOVE A 
PROCESS 1" ADDRESSOR") FROM THE SPECIFIED QUEUE ("REQ REL") 
ASSOCIATED WITH THE RESOURCE SPECIFIED BY "RINAME". THE 
DATA STORED IN THE FIELDS OF THE QUEUE ELEMENT IS RETURNED 
IN "IISGPTR " AND "DATA" IF THE PROPER QUEUE ELEMENT IE 
FOUND. "FOUND" IS SET TO TRUE OR FALSE INDICATING THAT 
THAT THE ELEMENT HAS OR HAS NOT BEEN REMOVED. "Q EMPTY" 
INDICAIES THE STATUS OF THE QUE AFTER THE ELEMENT HAS 
BEEN REMOVED. */ 

RCBGEIQ: ENTRY (RINAME, REQ REL, ADDRESSOR, ADDRESSEE, MSGPTR, 

DATA, FOUNDTQ^EMPTY, ERROR) ; 

DCL (FOUND, Q_EMPTY) BIT(1); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRI MITIVE_IN TERR UPT_DIS ENABLER (ALL_I NT, SA VEINTS) ; 

FCUND , G EMPTY = FALSE; 

IF (VALlt5 (EINAME) ) THEN DO; 

IF ( EEQ B^L =# LEFT) THEN START = LEFT QUE (RINAME) ; 

ELSE START = RIGHT QUE (RINAME); 

IF (START = NULL) THEN GO TO RETURN4; 

TEMP = START -> Q BOTTOM; 

DO WHILE ((TEMP -i» START) S (TEMP-> FROM -■= ADDRESSOR) ) ; 
TEMP * TEMP -> Q BOTTOM; 

END; 

IF (TEMP -> FROM -i= ADDRESSOR) THEN GO TO RETURN4 ; 
ADDRESSEE = TEMP -> TO; 

MSGFTR = TEMP -> MSG PTR ; 

DATA = TEMP -> FILE DATA; 

CALL SEMOVEQ (RINAME7REQ REL, TEMP , START) ; 

IF (START = NULL) THEN Q EMPTY = TRUE; 

FREE TEMP -> L R QUEUE; ~ 

FOUND = TRUE; 

END; 

GO TO RET URN 4 ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCB H ANDLE R 



ENTRY NAME: RCB_TRA N SFE 



PARAMETERS 



. INPUT 


OUTPUT 


TYPE 


CONTENTS 


RIName 




Integer 


Resource internal name. 


Q# 




Bit (1) 


Queue identifier. Values are: 
#LEFT or #RIGHT 


PIName 




Integer 


Process internal name which is 
being transferred 




Inq Fin 
StaL 


Bit (1) 


Status of Q# after transfer. 




Newq 

S tarT_St at 


Bit (1) 


Status of opposite queue be- 
fore transfer. 




Xf ered 


Bit (1) 


Status of transfer. 




Error 


Integer 


Error condition code. Values: 
a* 103 - invalid resource name 
b) 104 - unallocated resource. 


ENTRY 


POINT DESCRIPTION 





This entry pcint is invoked to transfer a process 
queue of an RCB to the opposite queue of that RCB 
return the status of both" queues after and before 
respectively. 



from one 
and to 
transfer, 
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ffN TRY POINT IMPLEMENTATION 



♦ s*****#***#****#**###** * * * $ * 

THIS ENTRY £01 NT TO RCB HANDLER IS USED TO TRANSFER A 
PROCESS ("PINAKE' 1 ) FROM ONE CUE <"Q#") OF AN RCB 
("RENAME’*) TO THE OTHER QUEUE. " aFERED" INDICATES THAT 
THE OPERATION HAS/HAS NOT BEEN PERFORMED. "INQ FIN S T A T 11 
INDICATES T BE STATUS OF "Q#" AFTER THE TRANSFER. 

" NErtQ START ST AT " INDICATES THE STATUS OF THE QUEUE 
OPPOSITE "Qff" BEFORE THE TRANSFER. */ 

RCB TRANSFERQ: ENTRY (RI NAME, Q# , PIN AME , INQ FIN ST AT f 

NEWQ_START_ST AT, XFERED , ERROR) ; “ 

DCL FINAME FIXED BINARY; 

DCL (INQ FIN STAT.NEWQ START STAT, XFERED ,NEWQ) BIT (1) ; 
DCL (STAl5T1 / bIART2) POINTER; “ 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRI MITIV E_I NT ERE U P DIS EN ABLER (ALL_INT,SAVEIN1S) ; 

XFEREC = FALSE; 

IF (VALID (RENAME) ) THEN DO; 

IF (Q# = #LEFT) THEN DO; 

ST ART 1 , TEMP = LEFT QUE (RINAME) ; 

START2 = RIGHT QUE7RI NAME) ; 

END; 

ELSu DO; 

SI ART 1 , TEMP = RIGHT QUE (RINAME) ; 

START2 = LEFT QUE (RINAME) ; 

END; 

IF ( START2 = NULL) THEN NEHQ START STAT = ##CLOSE; 

ELSE NENQ START SEAT = ##OPEN; ~ 

CALL L0GKUP7TLMP,PINAME, IPOS) ; 

IF (IPOS = U) THEN GO TO RETURNS; 

CALL REMOVEQ (RINAME / Q# / TEMP / START1) ; 

IF ( ST ART 1 = NULL) THEN INQ FIN STAT = ##CLOSE; 

ELSE INQ_FIN_SI AT = tttfOPENj 
N E Q = ~t Q& ; 

2HI = TEMP -> PRECEDENCE; 

CALL INSERT (RINAME, NEWQ , TEMP , PRI) ; 

XFERED = TRUE; 

END; 

GO 1C RE1URN5; 
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ENTRY POINT SPECIFICATION 



MODULE NAHEr RCB HANDLER ENTRY NAME: BCB^FIND 



PARAMETERS 
INPUT OUTPUT 


TYPE 


CONTENTS 


RCB 




Integer 


Resource internal name. 


Q# 




Bit (1) 


Queue identifier. Values are: 
Sleet or bright. 


FindOP 




Integer 


Operation identifier. Values: 
#FND0P1, f FND0P2 , #FND0P3, 
#FND0P4 , and #FNDOP5. 


Posit 


Posit 


Integer 


Position in queue to be sam- 
pled or in which the process 
was found. 


PINam 


PINam 


Integer 


Internal name of process to 
he found or which was found at 
the specified position. 


Datparm 


Datparm 


Integer 


Data found or to be entered. 




Pri 


Integer 


Priority of the process in the 
queue. 




Error 


Integer 


Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource 

c) 108 - invalid operation. 



ENTRY PO INT DESCRIPTION 



This entry pcint provides such services as searching a 
for a process and returning position and data, saraplin 
specified position in a gueue, and modifyinq data in a 
element. 



queue 
g a 
queue 
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ENTRY POINT IMPLEMENTATION 



y************************ * ajt # * * 

THIS ENTRY POINT TO RCB HANDLER IS USED TO DETERMINE THE 
QUEUE ("#2") POSITION ("POSIT") OF A PROCESS ("PI NAM") 

AND ENTER CR GET A COPY OF DATA. THE "PINAM", •POSIT", OR 
BOTH MAY BE SPECIFIED TO SELECT A SPECIFIC PROCESS, ANY 
PROCESS AT POSITION ("POSIT") OR A SPECIFIC PROCESS AT 
A SPECIFIED POSITION. */ 

RCB FIND: ENTRY (RCB, Q#, FINDOP, POSIT, PIN AM , DATPARM , PRI , 

ERROR) ; 

DCL (RCB , FINDOP, POSIT, PINAM, DA TP ARM, IPOS) FIXED BINARY ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I EITIVF_IN TERR UPT_DIS ENABLER (ALL^INT, SA VEINIS) ; 

IF (VALIE(RCB)) THEN DO; 

IF ((FINDOP < 1) | (FINDOP > 5)) THEN DO; 

ERROR = 108; 

GO TO RETURN 6; 

END; 

IF (Q# =#LEFT) THEN START = LEFT QUE (RCB) ; 

ELSE START - RIGHT QUE (RCB); 

IF (START = NULL ) TbEN DO; 

DAIPARM, POSIT = 0; 

GO TO RETURN 6 ; 

END; 

IPOS = PCSIT* 

DO_ACTION_OF , CASE (FINDOP) ; 

CASE(1): /* FIND THE PROCESS SPECIFIED BY PINAM AND 

RETURN THE POSITION AND FILE DATA */ 

CALI LOOKUP ( START, PI N AH , IPOS) ; 

IF (IPOS = 0) THEN DATPABii, PRI = 0; 

ELSE DO; DATPARM = START -> FILE DATA; 

PRI = START -> PRECEDENCE; END; 

POSIT = IPOS; 

ENECASE; 

CASE (2): /* FIND THE PROCESS SPECIFIED BY PINAM AND 
ENTER THE DATA IN DATPARM, RETURN THE 
POSITION IN THE QUEUE */ 

CALI LOOKUP (START, PINAM, IPOS) : 

IF (IPOS -i= 0) THEN START -> FILE DATA = DATPARM; 
POSIT = IPOS; 

ENECASE; 
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CASE (3): /* FIND THE SPECIFIED PROC AT THE SPECIFIED 
POSITION AND RETURN FILE DATA „ */ 

CALI QUEFOSIT (IPOS, START) ; 

IF ((IPOS = 0) | (PI NAM -.= START -> FROM) ) THEN DO; 

EATPARM, PSI = 0; 

ERROR =108; 

END: 

ELSE DO; DATPARM = START -> FILE DATA; 

PHI = START -> PRECEDENCE; END; 

ENDCASE; 

CASE (4): /* FIND THE SPECIFIED PROCESS AT THE 

SPECIFIED POSITION AND ENTER THE DATA 
IN DATPAKM */ 

CALL QUEPOSIT (IPOS , START) ; 

IF ((IPOS =0) | (PINAM -»= START -> FROM)) THEN 

ERROR = 108; 

ELSE 

START -> FILE DATA = DATPARM; 

ENECASE; 

CASE (5): /* FIND AND RETURN THE PROCESS NAME AND DATA 
AT THE SPECIFIED POSITION */ 

CALL QUEPOSIT (IPOS , START) ; 

IF (IPOS = 0) THEN PINAM, DATPARM, PRI = 0; 

ELSE DO; 

PINAM = START -> FROM; 

LATPARM = START -> FILE DATA; 

PRI = START -> PRECEDENCE; 

END; 

ENECASE; 

END CE CASES; 

END7 “ 

GO TC REIURN6; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RC B HA NDLER 

PARAMETERS 



INPUT" 


OUTPUT 


TYPE 


Type 




Integer 


RXName 




Char (8) 




RIName 


Integer 




Error 


Integer 



ENTRY NAME: FIND_INAME 



Resource type identifier. 
Values: #PCT, #DEVICE, # FILE 
and #SKMFOR . 

Resource external name. 

Resource internal name. 

Error condition code. Values: 

a) 101 - invalid resource type 

b) 111 - unidentilied resource 
external name. 



CONTENTS 



ENTRY, POINT DESCRI PTIO N 

This entry point finds and returns a resource internal name 
when provided a valid external name for a resource for which 
an RCB has been created. 



M5'SY^0INI_iMPL£HENTATI0N 



*##***#£:{<:*#**#**#****#* I***** 

THIS ENTRY POINT TO RCB HANDLER RETURNS THE INTERNAL NAME 
OF A RESOURCE ( ” RI NaH E") <JHEN GIVEN THE EXTERNAL NAME, 
("RXNAME") AND THE RESOURCE CLASS (“TYPE") PROVIDED A 
RESOURCE vY THAT NAME HAD BEEN CREATED. */ 

FIND_I NAME: ENTRY (TYPE ,RX N A ME, RINAME , ERROR) ; 

DCL (EASE, TOP) FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I MI TI V E^ I H TE R RU PT_D I S E N A BL E R ( A L L_ I N T , S A V E I'M I S ) ; 

IF (TYPE = #S EMFOR) THEN DO; BASE = 3EM I LIMIT; 

TOP = SEH LlfilT; 

END; 

ELSE IF (TYPE = f FILE) THEN DO; BASE = FILE L LIMIT; 

top = file u "Limit ; 

END; 

ELSE IF (TYPE = #DEVICE) THEN DO; 

BASE = DEV L LIMIT; 
TOP = DEV U LIMIT; 
END; “ ~ 









E 


LSE 


IF 


(T 


YPE = #PCT) 


THEN 


LO; 


















BASE 


= PCT L LIMIT; 




















TOP = 


PCX U LIMIT; 




















END ; 














ELS 


E 


DO 


; ERROR = 


101 ; 




















GO TO R 


ETUEN7 


; END; 


DO 


I 


= BASE 


TO 


TOP 


WH 


IL 


I] 


(RXNAME - 


= EXT 


NAME (I)); FND; 


IF 


(I 


> TOP) 


T 


HhK 


ERR 


OR 


= 


111 ; 





ELSE RINAME = 1; 
GO TO RET URN 7; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCg HANDLER 

PARAMETERS 



INPUT OUTPUT 


IYPE 


RIName 


Integer 


Addressor 


Integer 


ProVec 


Integer 




Vector 


Error 


Integer 



ENTRY NAME; DJSTROY_FCB 



Resource internal name. 

Internal name of the process 
destroying the resource. 

List of processes found cn the 
queues or the resource being 
destroyed. 

Error condition code. Values: 



a) 


117 - 


process not autho- 


rizea 


to destroy the re- 




source 




b) 


103 - 


invalid resource name 


c) 


104 - 


unallocated resource. 



CONTENTS 



ENTRY _ POINT DESCRIPTION 

This entry point is invoked to destroy a specified resource 
provided the addresser is the owner or the creator of the 
resource. Any process on the resource queue is returned to 
the invoker kr proper disposition. 
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ENTRY POINT IMPLEMENTATION 



THIS ENTRY "POINT TO RGB HANDLER IS USEE TO DESTROY 
A SPECIFIED RCB ("RIN hAE") . THE PROCESS REQUESTING 
DESTRUCTION (" ADDRESSOR 1 ') MUST BE THE CREATOR OF THE 
RCE OR AN ErtROR FOR THAT PROCESS IS RAISED. ALL 
PROCESS INTERNAL NAMES QUEUED ON THIS RCE ARE 
IDENTIFIED BY SETTING A BIT FIELD IN PROVEC TO TRUE. 
THIS VECTOR IS UTILIZED BY THE INVOKING PROCESS TO 
RELEASE MESSAGES TO THE SUPERVISOR CONCERNING THE 
NON-EXISTANCE OF THIS RESOURCE AND THE PROCESSES 
USING IT. */ 

DESTROY^RCB: ENTRY (RI NAME, ADD HESS OR, PROVEC, ERROR) ; 

DCL QNE BIT H) ; 

DCL PROVEC {*) BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR IMITIVE_ INTERRUPT_DIS ENABLER ( AL1_I NT, SA VEI NTS) ; 

IF (VALID (RINAME) ) THEN DO; 

IF ( (ADDRESSOR -.= CREATOR (RINAME) ) | 

(ADDRESSOR -.= OWNER (Rx NAME) ) ) THEN DO; 

ERROR = 117; 

GO TO RETURN 8 ; 

END: 

IF ((LEFT QUE (RINAME) -.=NULL) j (RIGHT QUE (RINAME) -»=NULL) ) 
THEN DO; 

PROVEC (0) = TRUE; 

QNE = #LEFT; 

START = LEFT QUE (RINAME) ; 

DO J " 1 TO 7; 

DO WHILE (START -= NULL) ; 

TEMP = START -> Q TOP; 

IF (TEMP -> FROM ADDRESSOR) THEN 
PROVEC (TEMP -> FROM) = TRUE; 

CALL REMOVES (RINAME, QHR, TEMP, START) ; 

FREE TEMP -> L R QUEUE; 

END; 

START = RIGHT QUEYRINAME) ; 

QNR = BRIGHT; - 

END; 

END; 

ASSIGNED (RINAME) = FALSE; 

END; 

GO TO .RETURN 8 ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RGB HANDLER 

PARAMETERS 



INPUI 


OUTPUT 


TYPE 


RIName 




Integer 


PutGet 




Bit (1) 


Field 




Integer 


Cdata 


Cdata 


Char (8) 




Error 


Integer 



ENTRY NAME: RCB_CHARDAT 



CONT EN TS 

Resource Internal name. 

Operation identifier. Values: 
#PUI or #GET to enter or get 
a copy of data, respectively. 

RCB field identifier. Values: 

a) #PCTN AM - PCT external name 

b) # X N A M E - external name. 

Transfer of character da ta . 

Error condition code. Values: 
a) 103 - invalid resource name 
bj 104 - unallocated resource. 



EN T FY_ PO I NT_ DESCRIPTION 

Invoked to access character type data. Implemented as a 
generic entry point to Primitive^RCBData. 



EN TRY POINT IMPLEMENTATION 



THIS ENTRY POINT TO RCB HANDLER IS USED TO ACCESS 
CHARACTER TYPE DATA. " HI NAME" SPECIFICES THE RCB HUMEER; 
“PUT GET" SPECIFIES THE OPERATION TO BE PERFORMED (#PUT OR 
#GEI) : "FIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE 
^VARIABLES) ; AND "CDAT A" CONTAINS THE DATA TO BE ENTERED 
OR IS SET 10 THE VALUE TO BE RETURNED. */ 

DCL FIELD FIXED BINARY; 

BCL PUTGET BIT (T) ; 

RCB_CHARCAT: ENTRY ( RINAME, PUTGET, FI ELD, CD AT A, ERROR) ; 

L CL CDAT A CHAR (8) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIV E^ INTER RUPT_DIS ENABLER (ALL_INT, SAVEINTS) ; 

IF (VALID (RINAME) ) THEN DO; 

DO ACTION OF CASE (FIELD) ; 

CASE (1)7 IF (PUTGET- i. k PUT) THEN EXT NAME (RINAME) =CDATA; 
ELSE CDATA = EXT NAME (RIHTtME) ; 

ENCCASE; 

CASE (2): IF (PUTGET=#PUT) THEN PCT N A ri E (SIN AM E) = C D ATA ; 
ELSE CDATA = PCT_ N AM E ( BITT A ME) ; 

ENCCASE ; 

END_CF CASES; 

END: “ 

GO TO RET URN 9; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCB BAN DLg R ENTRY NAME: RCB_FIXBCA2 



PARAMETERS 

INPUT OUTPUT TYPE CONTENTS . 

RINante Integer Resource internal name. 

PutGet Bit(1) Operation identifier. Values: 

#PUT or #GET to enter or get 
'a copy of data, respectively. 

Field Integer RCB field identifier. Values: 

a) #CRATR - resource Creator 

b) # 0 W NEB - resource Owner 

c) #DINAME - Device internal 
name 

d) #CNT SZ - Counter or file 
length 

e) #OFlLE - Open_File data 
ft #S OR P - Shared Private 
g) #TFIL"E - File_Type data. 

Fdata Fdata Integer Transfer of integer type data. 

Error Integer Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource. 



ENTRY POINT DESCRIPTION 

Invoked to access integer type data. Implemented as a 
generic entry point to Primitive^RCBData . 
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ENTRY POINT IMPLEMEN TAT ION 



/* **$********#*****'****** * * * * * 
THIS ENTRY POINT TO RCB HANDLER IS USED TO ACCESS FIXED 
BINARY TYPE DATA. "RINAME" SPECIFICES THE RCB NUMBER; 
"PUTGET" SPECIFIES THE OPERATION TO BE PERFORMED (#PUT OR 
#GET) ; “FIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE 
# VARI A ELZS) : AND "FDAT A" CONTAINS THE DATA TO BE ENTERED 
OR IS SET TO THE VALUE TO BE RETURNED */ 

RCB_FIX EDAI : ENTRY (RINAME, PUTGET r FI ELD, F DATA , ERROR) ; 

DCL FDAT A FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIV£_INTERRUPT_DISENAELER CALL_INT,SAVEINIS) ; 

IF (VALID (RINAME) ) THEN DO; 

DO ACTION OF CASE (FIELD); 

CASE (1)7 IF (PUTGET = iPUT) THEN CREATOR (RINAME) =F DAT A ; 
ELSE EDATA = CREATOR (RI NAME) ; 

EN ECASE * 

CASE (2): l£ (P UTGET = ir PUT) THEN OWNER (RINAME) = FLATA; 
ELSE FDAT A = OWNER (RINAME) ; 

FNDCASE * 

CASE (3) : IF* (PUTGET = #PUT) THEN 

DEVICE INAME (RINAME) = FDATA; 
ELSE FDATA = DEVICE TNA ME (RINAME) ; 

ENDCASE; 

CASE (4); IF (PUTGET = #PUT) THEN 

CNTR SIZE (HI NAME) = FDATA; 

ELSE FDATA = CNTR SIZE (RINAME) ; 

FNDCASE; 

CASE (5) ; IF (PUTGET = #PUT) THEN 

OPEN FILE (RINAME) = FDATA; 

ELSE FDATA = OPEN PILE (RINAME) ; 

FNDCASE; 

CASE (6): IF (PUTGET = #PUT) THEN 

SHARED PRIVATE (RINAME) = FDATA; 
ELSE FDATA = SHARED PRIVATE (RINAME) ; 

ENDCASE* 

CASE (7): Ir (PUTGET = #PUT) THEN 

FILE TYPE (RINAME) = FDATA; 

ELSE FDATA = FILE TYPE (RINAME) ; 

FN ECASE ; 

END OF CASES; 

END7 ~ 

GO TO RETURN 10 ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RC3_HANDLFR ENTRY NAME: RCB_BIT£AT_£ 

PARAMETERS 



INPUT OUTPUT TYPE ^CONTENTS 

RINaae Integer Resource internal name. 

PutGet Bit{1) Operation identifier. Values: 

#PUI or #GET to enter or get 
a copy of data, respectively. 

Field Integer RCB field identifier. Values: 

a) #DSIAT Device Status data 

b) ifL_QUE - left Que status 

c) # R QUE - Right_Que status 

d) #A3GND - Assigned data. 

Bdata Bdata Bit(1) Transfer of bits data. 



Efror Integer Error condition code. Values: 

a) 103 invalid resource name 

bj 104 - unallocated resource. 

c) 107 - invalid put operation 

attempted in queue header 

d) 119 - invaiid put operation 

attempted in assigned field 



ENTRY PO INT DESCRIPTION ; 

Invoked fcr transfer of bit type data. Implemented as a 
generic entry point to Primiti ve_RCBDa ta. 
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entm_point_ihplementation 



a*********************** * * * * * 

THIS ENTRY POINT TO RCB HANDLER IS USED TO ACCESS SITS 
TYPE DATA. "RINA ME " SPECIFIES THE RCB NUMBER; "PUTGET" 
SPECIFIES THE OPERATION TO EE PERFORMED (#PUT OR #GET) ; 
"EIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE #VARI- 
ABLES) ; ANB "BDATA" CONTAINS THE DATA TO EE ENTERED CR 
IS SET TO THE VALUE TO BE RETURNED */ 

RCB_BITBATA: ENTRY (RINAME, PUTGET, FIELD, BDATA, ERROR) ; 

DCL BDATA BIT ( 1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLER (ALL_I NT , S A V El N IS) ; 

IF (VALID (RINAME) ) THEN DO; 

DC ACIIQN OF CASE (FIELD); 

CASE ( 1) T IF (PUTGET = #PUT) THEN 

DEVICE STATUS (RINAME) = E DATA ; 
ELSE BDATA = DEVICE STATUS (RINAME) ; 

ENDCASE; 

CASE (2): IF (PUTGET = #PUT) THEN ERROR = 107; 

ELSE IF (LEFT QUE (RINAME) = NULL) THEN 

BDATA = TRUE; 

ELSE BDATA = FALSE; 

ENDCASE; 

CASE (3); IF (PUTGET = #PUT) THEN ERROR = 107; 

ELSE IF (RIGHT" QUE (RINAME) = NULL) THEN 

BDAIA = TRUE; 

ELSE BDATA = FALSE; 

E N D C A S E * 

CASE (4) ; IF (PUTGET= tfPUT) THEN ERROR = 119; 

ELSE BDATA = ASSIGNED (RIN AM E) ; 

ENDCASE; 

END_CE CASES: 

END; ~ 

GO TC RETURN 1 1 ; 
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LOCAL PROCEDURES 



THE FOLLOWING LOCAL PROCEDURES ARE USaD TO PERFORM 
FUNCTIONS WHICH ARE COMMON TO SEVERAL ENTRY POINTS */ 



/* ****$#*❖*#****#******** * ♦ * * * 
VALIE CHECKS THAT "RCBNR" IS WITHIN RANGE AND THAT THE 
RCB IS CURRENTLY ACTIVE. */ 

VALID: FBOC(RCBNR) RETURN S ( BIT ( 1 )) ; 

DCL ECBNR FIXED BINARY; 

IF ( (BCENfi <1)1 

( (SCENE > SEE LIMIT) & (ECBNR < DEVI LIMIT)) J 
( (ECBNR > DEV“U LIMIT) 6 (RCBNR < FlLT L .LIMIT) ) 1 
( (RCBNR > FILE u LIMIT) 6 (RCBNE < PC1“L LIMIT)) | 
(ECBNB > PCT U“ LIMIT) ) THEN DO; " “ 

ERROR = 103;“ RETURN (FALSE) ; END; 

IF (-^ASSIGNED (P.CBNR) ) THEN DO; 

ERROR = 104; RETURN /FALSE) ; END; 

RETURN (TRUE) ; 

END VALID; 



jSc**#:*#####******#*#**##: aCt 3iE 3(c 3$c age 

REMOVEQ REMOVES THE QUEUE ELEMENT (" ELMT" ) FROM THE QUEUE 
(»QNUM fi ) ASSOCIATED WITH THE RCB NUMBER ("RCB") . "TOPELMT" 
SPECIFIES THE TOP ELEMENT IN THE QUEUE. */ 

REMGVEQ: f ROC (RCB, QNUM, ELMT, TOPELMT) ; 

DCL QNUM BIT ( 1 ) , 

( ELMT t TGPEtirT , TEMP , TEMPI ) POINTER, 

RCB FIXED BINARY; 

TEMP = ELMT; 

TEMPI = TOPELMT; 

IF ( (I EMP = TOPELMT) & (TEMP -> Q TOP = TOPELMT)) 

THEN DO; 

/* REMOVE THE ONLY ELEMENT IN THE QUEUE */ 

IF (QNUM = # LEFT) THEN LEFT QUE (RCB) , TOPELMT = NULL; 
ELSE RIGHT QUE (RCB) f TOPELMT = NULL; 

RETURN; 

END; 

FI qp P n • 

IE (TEMPI = TEMP) THEN 

/* REMOVE THE TOP ELEMENT IN THE QUEUE */ 

IF (QNUM = 1 E F T } THEN 

LEFT_QUE (RCB) = TEMP -> Q EOTTOM ; 

ELSE RIGHT QUE (RCB) = IEMP -> Q BOTTOM; 

END; 

/* RESET THE QUEUE LINKAGE TO REMOVE THE ELEMENT */ 
TEMPI = TEMP ~> Q BOTTOM; 

TEMPI -> Q TOP = TEMP -> Q TOP; 

TEMPI = TEEP -> Q TOP; 

TEMPI -> Q BOTTOM”^ TEMP -> Q BOTTOM; 

RETURN; 

END i\ E M 0 V E Q 4 
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/* **************************** 

INSERT ENTERS THE QUEUE ELEMENT ("PTR") IN THE RGB 
("F.INAME") QUEUE SPECIFIED ("L_OR_R") BY PRIORITY ("PHI”). 

V 

INSERT: FROC (RIN AME , L OR R, PTR, PRI); 

DCL (EINAME,PRI) FI7ED - BIN AR Y ; 

DCL (PTR , STAR T , TEMP) POINTER; 

DCL I CR R BIT (1) : 

DCL EE PIT BIT(l) jlNIT^O'B); 

IF (L OR R = *LEFT> THEN DO; 

ST AT3T = LEFT QUcI (RINAME) ; 

IE (START = HULL) THEN EMPTY = TRUE; 

ELSE IF {S TART -> PRECEDENCE >= PRI) THEN GO TO FIND; 
LETT CUE4RINAME) = PTR; 

END; 

ELSE DO; 

START = RIGHT QUE (HI NAME) ; 

IF (START = NULL} THEN EMPTY = TRUE; 

ELSE IF (START -> PRECEDENCE >= PRI) THEN GO TO FIND; 
RIGHT QUE (RIN AHE) = PTR; 

END"; 

IF (EMPTY) THEN DO; 

PTR -> Q TOP, PTR -> Q BOTTOM = PTR; 

RETURN; ~ ~ • 

END; 

TEMP = START; 

GO TC ENT; 

FIND: TEMP = START -> Q BOTTOM; 

DO WHILE ((T3Mj?-»=SxART) & (TEMP->PBECEDENCE>=PRI) ) ; 
TEMP = TEMP -> Q BOTTOM; 

END; 

ENT; PTR -> Q BOTTOM = TEMP; 

START, PTR -> Q TOP = TEMP -> Q TOP; 

TEMP -> Q TOP, START -> Q BOTTOM = PTR; 

RETURN; 

END INSERT; 



*********************** ***** 
LOOKUP SEARCHES THE QUEUE BEGINNING WITH THE ELEMENT 
"START" FOE PROCESS SPECIFIED BY "NAM". IE THE PROCESS 
IS FOUND "START" IS SET TO THE POINTER TO THE PROCESS 
AND IPOS IS SET TO THE PROCESS * POSITION IN THE QUEUE. 

IF THE PROCESS IS NOT FOUND "IPOS" IS SET TC ZERO. */ 

LOOKUP: PRCC (START, NAM, IPOS) ; 

DCL (START, TEMP) POINTER, 

(NAM, IPOS, I) FIXED BINARY; 

IE M P = START; 

1 = 1 ; 

IF (TEMP -> FROM -»= NAM) THEN DO; 

TEMP = START -> Q BOTTOM; 

1 = 2; 

DO WHILE ( (TEMP -= START ) & (TEMP -> FROM -*= NAM) ) ; 

1 = 1 + 1 ; 

TEMP = TEMP -> Q BOTTOM; 

END ; 

END; 

IF (TEMP -> FROM -*= NAM) THEN IPOS = 0; 

ELSE IPOS = I; 

START = TEMP; 

F El URN ; 

LND LOCKUP; 
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* Jfr***#*******:#**##**## * $ * * * 

QUEPOSIT RETURNS THE POINTER TO THE PROCESS IN THE 
POSITION SPECIE I ED BY "IPOS' 1 IN THE QUEUE STARTING WITH 
"START". "START" IS SET TO THE RETURN POINTER IF THE 
PROCESS IS FOUND ELSE "IPOS" IS SET TO ZERO. */ 



QUEPOSIT: PROC (IPOS, START) ; 

DCL (IPOS, I) FIXED BINARY, 

(START, TEMP) POINTER; 

TEMP = START -> Q BOTTOM; 
i=i; 

DO WHILE ((I < IPOS) & (TEMP -= START) 
TEMP = TEMP -> Q BOTTOM; 

1 = 1 + 1 ; 

END ; 

IF ( I = IPOS) THEN /* DONE */ START = 
ELSE /* NOT DONE V IPOS = 0; 

RETURN; 

END QUEPOSIT; 



) 



TEMP -> Q_TCP ; 



RETURN 1 : RETURN2: RETURN3 : FETURN4 : RETURN5 : RET URN 6 : 

RETURN? : RETURN 8 : RETURN 9: RETURN10: RETURN 1 1 ; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRI El TI VE_ IN TERR UP T_ ENABLER { ALL_I NT , SA VEI NTS) ; 

END P RIM III VF_RCB_ HANDLER ; 
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MODULE SPECIFICATION 



NAME: INTER RUPT E NABLER TYPE: PRIMITIVE 

PARAMETERS 



INPUT OUTP UT TYPE t CONTENTS 

Interrupt Integer If not zero, it identifies the 

interrupt to be enabled. 

Save_int Integer If interrupt is zero, it iden- 

Array tifies all interrupts to be 

enabled. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME. PARAMETERS PURPOSE 

None. 



EXTERNAL CALLS MADE EY OTHER MODULES 

NAMJ PURPOSE 

Invoked by ail primitives and the Interrupt Handler upon 
completing execution. 



DATA STRUCTURES USED 

NAME RT^LD TYPE P UR POSE / VALUE S 

Intrupt Bit(1) External structure containing 

Array the current status of the sys- 

tem interrupts. A ■l* indi- 
cates the interrupt is erabled 
and a 'O' indicates that it is 
disabled . 



MODULE^D^SCRIPlig^ _ 

This primitive was designed to enable all the interrupts set 
in the array save vector if the parameter interrupt equals 
zero otherwise only the specified interrupt is enabled. 
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KODUL£_ IMPLEMENTATION 



^INCLUDE N AMCHGR; /***** INTERRUPT ENAEIER *****/ 

/* THIS PRIMITIVE WAS DESIGNED TO ENA3LE ALL 'THE 
INTERRUPTS SET TO TRUE IN THE ARRAY SAVINT IF 
INTERRUPT# IS ZERO (0) , OR TO ENABLE THE SPECIFIC 
INTERRUPT SPECIIIED BY INTERRUPT# 

PHI MIT IV E — IN TERR UP T__ ENABLER: PROC (INTERRUPT# , SAVEI NT) ; 

5SINCLUDE INTACTV; 

DCL INTERRUPT# FIXED BINARY (15). 

SAVEINT (16) BIT ( 1 ) ; /* DIMENSIONED NUMBINT */ 

IF (INTERRUPT# = 0) THEN /* RENABLE FROM SAVEINT */ 
INIRUPT = SAVEINT; 

/* INTRUPT CONTAINS THE CURRENT STATUS OE THE SYSTEM 
INTERRUPTS. A 1 INDICATES THE INTERRUPT IS ENABLED; 
A 0 INDICATES THE INTERRUPT IS DISENABLED 

ELSE INIRUPT (INTERRUPT#) = M*B; 

/* ENABLE A SINGLE INTERRUPT */ 

RETURN ; 

END PRIMITI VE_I NT ERR UPT ENABLER ; 




MODULE SPECIFICATION 



NAME: INTER P.UPI DISABLED TYPE: PRIMITIVE 



PARAMETERS 

INPUT OUTPUT TYPE CO NT ENT S 

Interrupt Integer If not zero, it identifies the 

interrupt to be disabled. 

Save int Integer If interrupt is zero, it is 

Array used to save the status of all 

interrupts being disabled. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PA RAM E1E BS PURPOSE 

None. 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PURPOSE 

Invoked ry all primitives and the Interrupt Handler to 
prevent Interrupts during execution. 



DATA STRUCTURES USED 

NAMF^ FIELD TYPE _PU RPOSE^V AL U ES • 

Intrupt Bit(1) External structure containing 

Array the current status of the sys- 

tem interrupts. A ' 1 1 indi-_ 
cates the interrupt is enabled 
and a '0* indicates that it is 
disabled . 



MODULE_DEiCRIPTTON_ 

This primitive was designed to disable all the interrupts 
currently enabled and to return the current interrupt status 
in th.e save vector if tne interrupt parameter equals zero 
otherwise only the interrupt specified is disabled . 
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MODULE IMPLEMENTATION 

— — — — fc — — -rr — * — — — — — — — — ■ — 



^INCLUDE EAHCHGR; /***** INTERRUPT DISENABLED *****/ 

/* THIS PRIMITIVE UAS DESIGNED TO DISENABLE ALL THE 
INTERRUPTS CURRENTLY SET AND TO SAVE THE CURRENT 
INTERRUPT STATUS IN THE ARRAY SAVEINT, IF INTERRUPT# 
EQUALS ZERO (0) OTHERWISE DISENABLE THE SPECIFIC 
INTERRUPT INDICATED BY INTERRUPT# */ 

PRIMITI V£_INTERRUPT__DISENA3LEfi: FROC (INTERRUPT#, SAVEINT) ; 

^INCLUDE INTACTV; 

DCL INTERRUPT# FIXED BINARY (15) , 

SAVEINT (16) Eli (1) ; 

IF (INTERRUPT# ^ 0) THEN /* DISENABLE ALL INTERRUPTS 
AND SAVE THE CURRENT CONFIGURATION IN SAVEINT */ 

DO; 

/* INTRUFT CONTAINS THE CURRENT STATUS OF THE SYSTEM 
INTERRUPTS. A 1 INDICATES THE INTERRUPT IS ENABLER; 

A 0 INDICATES AN INTERRUPT IS DISENABLED */ 

SAVEINT = INTRUPT; 

INTRUFT = ' 0* B; 

END ; 

ELSE /* DISENABLE A SINGLE INTERRUPT */ 

INTRUPT (INTERRUPT#) = »0‘B; 

END PRIMITI VE__IN TERR UPT__DI SEN ABLER; 
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MODULE SPECIFICATION 



NAME: SAVEST^TE 



TYPE: PRIMITIVE 



PARAMETERS 

INPUT OU1PUT _TYPE 

P-Iname Integer 

Processor Integer 



Error Integer 



CONTENTS 

Process internal name. 

CPU on which the process being 
saved was executing. 

Returns error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE. 



Interrupt Interrupt Number, 
D is abler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked to dis- 
able all interrupts while 
Savestate is in execution. 

This module is invoked tc re- 
enable all interrupts which 
were disabled by the current 
module in execution. 



PC3DATA Process I-Name, 

Put/Get Parameter, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked tc s 
the contents of the CPU reg 
ters on which Process I-Nam 
was in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 



NAME 




PURPOSE 


Scheduler 




Save the state of a process which is 
being preempted. 


Reguest 




Save the state of a process whose re- 
blocked on a reguest for a message or 
resource. 


Interrupt 


Handler 


Save the state of the current process in 
execution on the Operating Sysrem pro- 
cessor until the current interrupt is 
handled. 
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DATA STRUCTURES USED 



NAME 


FIELD 


TYPE 


PURPOSE/VALUES 


Saveint 




Bit (1) 
Array 


Array used to save the status 
of tne interrupts; arguement 
in call to Disabler and 
Enabler. 


CPURF.GS 




Integer 

Matrix 


External structure represent- 
ing the CPU registers for each 
processor. 




Item (i, j) 


Integer 


Represents register 'j* cn 
processor 1 i 1 . 


Current- 

Process 




Integer 

Array 


External vector used to iden- 
tify the process executing on 
processor *i* (Array index). 



MODULE DESCRIPTION 

This primitive was designed to save the current state cf the 
processor in the save-area (PCB Field) for the specified 
process. 
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mqdulb_implementation 



^INCLUDE NAMCHGR; /***** SA VE STATE *****/ 

/* THIS PRIMITIVE WAS DESIGNED TO SAVE THE CURRENT STATE 
OF THE PROCESSOR ( "PROCESSOR#*') IN THE SaVEAREA EOR 
THE PROCESS SPECIFIED BY " PI NAME 11 . UPCN COMPLETION 
THE CURRENT PROCESS FOR THE SPECIFIED PROCESSOR IS 
SIT TO ZERO. V 

PRIHITIV E_SA VEST ATE: PROC (PI NAME, PROCESSOR# , ERPRM) ; 

^INCLUDE EEGS1RS; 

^INCLUDE PCEECL; 

^INCLUDE GSDCI; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR = 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL (FINAME, PROCESSOR#, ERPRM) FIXED BINARY (15) ; 

DCL £R FOR FxXEC BINARY (15) INITfO); 

DCL TEMPREG (10) FIXED BINARY (31) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FRIMITIVE_INTERRUPT_DIS EN ABLER (ALL_INT,SAVEIN1S) ; 

/* SAVE THE PROCESSOR STATE IN PROCESS 1 S PCB */ 
TEMPREG = CPUREGS (PROCESSOR#, *) ; 

CALL PRIMITIVE PCBDATA (PINAME, a)PUT, ESTATE, TEMPREG, 

ERROR) ; 

/*SET CURRENT PROCESS OF THE PROCESSOR TO ZERO*/ 
CURRENT_PROCESS (PROCESSOR#) = 0; 

/*** REENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , S AVEI NTS) ; 
RETURN PCINI: “ 

END PRIMITIVE SAVESTAT2; 
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MODULE SPECIFICATION 



NAME: RE STORE'S! AT E 




TYPE: 


PRIMITIVE 


PARAMETERS 
INPUT OUTPUT 


TYPE 


CONTENTS 




P-Indme 


Integer 


Process internal 


name . 


Processor 


Integer 


CPU allocated to 


the process. 


Error 


Integer 


Returns error condition code. 


EXTERNAL CALLS MADE 


TO OTHER 


MODULES 




NAME PARAMETERS 


..PURPOSE 





Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



PCBDATA Process I-Name, 

Put/Get Parameter, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module Is invoked t 
able all interrupts whil 
Restorestate is m execu 

This module is invoked t 
enable all interrupts wh 
were disabled by the cur 
module in execution. 

This module is invoked t 
the CPU registers tor th 
cified processor to the 
vector saved in the proc 
PCB. 



c dis- 
e 

tion . 

o re- 
ach 
rent 



c set 
e spe- 
state 
ess 1 s 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PURPOSE 



Scheduler 
Interrupt Handler 



Restore the state of a process which 
was blocked, preempted or just created. 

Restore the state of the process preemp- 
ted by this module after the interrupt 
has been handled. 
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DATA STRUCTURES USED 

NAME FIJLD ^_TYPE PO RPOSS/ VALUE 



Saveiat 



Bit(1) Array used to save the status 
Array of the interrupts; arguement 

in call to Disabler and 
< Enabler. 



CPUREGS Integer 

Matrix 

Itein(i,j) Integer 



External structure represent- 
ing the CPU registers for each 
processor. 

Represents register * j* cn 
processor 1 i 1 . 



Current- 

Process 



Integer External vector used to iden- 
Array tify the process executing on 

processor 1 i' (Array Index). 



MODULE_D^SCRIPTION. 



This primitive was designed to set the registers of th 
cifiea processor to the state vector savea in the proc 
PC3 and to set cur rent_process for the processor to th 
specified process. 



e spe- 
ess ' s 
€ 
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MODULE IMPLEMENTATION 

^INCLUDE N AMCHGR ; /***** RESTORE STATE **♦**/ 

/* THIS PRIMITIVE HAS DESIGNED TO RESTORE THE REGISTERS 
FOR THE PROCESS SPECIFIED EY PINAME FOR THE PROCESSOR 
SPECIEIZD BY PROCESSOR# AND TO SET THE CURRENT PROCESS 
FOR THE PROCESSOR TO PINAME. */ 

(CHECK (ERROR) ) : 

PRIMITI VE^RESTORESTATE: PROC (PIN AME, PROCESSCB# , ERPR tf ) ; 

SJ IN CI.UDE PCEECL; 

^INCLUDE CSDCL; 

^INCLUDE BEGSTRS; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR -= 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

ENE; 

DCL (PI NAME, PROCESSOR# , 2RPRM) FIXED BIN ARY ( 1 5) ; 

DCL ERROR FIXED BINARY (15) INIT(O); 

DCI lEMPREG(IO) FIXED BIN ARY (3 1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLER (ALL_INT, SA VEIN TS) ; 

/* GET THE PROCESSOR STATE SAVED IN THE PROCESS'S 

PCB */ 

CALL ERIMITI VE PC 3D AT A ( PI ti AM E, a)GET, a)ST ATE /TEMPREG , 

ERROR) ; 

/* SET THE PROCESSOR REGISTERS AND UPDATE THE; 

CURRENT PROCESS. */ 

CPUREGS (PROCESSOR#,*) - TEMPREG; 

CURRZNT_ER0CE35 (PROCESSOR#) = PINAME; 

/* REENABLE THE INTERRUPTS. */ 

CALI PRIMITIVE_INTERRUPT_ENABLER ( ALL_I NT , SAVEI NTS) ; 

RETURN ECINT: 

END PRlBlTI VE_RESTORESTATE ; 
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APPENDIX D: 



MODEL INITIALIZATION AND TEST PROGRAMS 



^INCLUDE NAMCHGR; /****♦ HARDWARE DRIVER ***♦*/ 

(CHECK (ERROR) ) : 

HDEIVEE : PROC OPTIONS (MAIN) ; 

/* THE HARDWARE DRIVER IS USED TO SIMULATE THE PROCESSORS 
EXECUTING THE SCHEDULED PROCESSES, SETTING INTERRUPTS 
AND INVOKING THE INTERRUPT HANDLER AFTER AN 
APPROPRIATE TIME LAPSE AND PERFORMING OTHER FUNCTIONS 
OF THE HARDWARE. */ 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR - 1 = 0) THEN DO; 

PUT FILE (SYSPRINT) LIST (' HARDWARE DRIVER: ERROR= 1 , 
ERROR) SKIP; 

(NCCHECK (ERROR) ) : 

EEGIN; ERROR = 0; END; 

END; 

END; /* ERROR ON CONDITION */ 

2 INCLUDE PCEDCL; 

^INCLUDE RCEDCL ; 

^INCLUDE CSDCL; 

^INCLUDE INTACTV; 

%1 NCI.UDE INTSET; 

^INCLUDE GEN TEC; 

21 N CRUDE CAS T STM ; 

^INCLUDE REGS IRS ; 

DCL ITIME f16) FIXED BINARY (31) STATIC, 

TIMER FIXIsD BINARY (31), 

CPRO C (4) FIXED BINARY (15) STATIC INI! ((4)0), 

CINDX (4) FIXED BINARY (15) STATIC INIT((4)0), 

CREG(10 FIXED BINARY (31) STATIC INI! ( (10) U) , 

ERROR FIXED BINARY INIT(O), 

IC FIXED BINARY EXTERNAL; 

CURRENT PROCESS = 0; 

CALL INITIALIZATION; 

CALL TESTER; 

DO FOREVER; 

PUT FILE (SYSPRINT) LIST (' HARDWARE DRIVER - TOP') SKIP; 

/** EXECUTE ONE "STEP" ON EACH PROCESSOR **/ 

DO I = 1 TO WUMbCPU ; 

IF (CURRENT PROCESS (I) -= CPROC (I) ) THEN DO; 

/*** SAVE THE IDENTIFICATION OF THE PROCESS EEING 
RUN 

CPROC (I) = CURRENT PROCESS (I) ; 

CINDX (I) = CPUREGS1I , 1) ; 

END; 

/*** SET THE INSTRUCTION COUNTER FOR SIMULATION */ 
IC = CPUREGS (I ,2) ; 

IF (CURRLNT_PROCESS (I) -.= 0) THEN DO; 

PUT RILE (SYSPRINT) LIST (' INDEX= ' ,CI NDX (I) ) ; 

PUT FILE (SYSPRINT) LIST( ' ') SKIP; 
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/** EXECUTE THE PROCESS **/ 

EO ACTION OF CASE (CINDX (I) ) ; 

■CASE(1)7 CALL SUPERVISOR; 

CASE (2) : 

PUT FILE (SYSPRINT) 

/* CALL TERMINATOR; 

ENECASE; 

CASE (3) • 

PUT FILE (SYSPRINT) LIST (' INITIATOR - DUMMY*) 
/* CALL INITIATOR; */ 



ENDCASE; 



LIST^* TERMINATOR - 



DUMMY 1 ) 



ENECASE; 

CASE (4): CALL 

CASE (5) : CALL 

CASE (6) 1 CALL 
CASE ( 7 ) : CALL 

ENECASE ; 

CASE (8) 

END CE CASES; 

/* “CHECK TO SEE IF 
IE SO, SAVE THE 



INPUT CONTROLLER; 
OUTPUT CONTROLLER 
FILE MANAGER; 



ENDCASE; 

ENECASE; 

ENECASE; 



OPEBlIOR_SYSTEM_COMMUNICATOR_ 
CALL FILE_SPACE_MAN AGES ; ENDCASE; 

A PROCESS HAS BEEN PREEMPTED. 



CORRECT INSTRUCTION COUNTER 



FOR 

*/ 



SIMULATION PURPOSES. 

IE (CPROC(I) CURRENT PROCESS(I)) THEN DO; 

m = CINDX (I) ; “ 

PRIMITIVE PCBDATA (CPROC (I) , o)PUT, ESTATE, CREG, 

ERROR) ; 

END; 

ELSE 



CREG 

CREG 

CALL 



/*** SAVE THE SIMULATION INSTRUCTION COUNTER 
CP U REGS (1,2) = IC; 

END; 

/* CHECK INTERRUPTS */ 

TIMER = TIMER + 5; /* INCREMENT THE CLOCK */ 

DO J = 1 TC NUMBINT; 

/*** IF IHE TIME FOR AN INTERRUPT TO OCCUR 

HAS ELAPSED THEN SET THE INTERRUPT **/ 
IE ( (INTRUPT (J) ) & (ITIME(U) >= TIMER) > THEN DO; 

IN IRSET (I) = TRUE; 

PUT FILE (SYSPRINT) LIST ( 'INTERRUPT ' # I, • SET *)- ; 

/* 

CALL INTERRUPT HANDLER; 

V 

END; 

END; 

END; 

END; /* OF DO FOREVER */ 



STARTIO: ENTRY (INTERRUPT#) ; 

/**** THIS PROCEDURE SIMULATES STARTING AN I/C 
DEVICE - THE BASE TIME IS SAVED TO CHECK 
ELAPSED TIME TO SET THE INTERRUPT ****/ 

DCL INTERRUPT# FIXED BINARY (15), 

DEVTIME (16) FIXED BINARY (Is) STATIC INIT ( ( 1 6) 5 0) ; 

/* DEVTIMS IS THE AVERAGE LENGTH OE TIME REQUIRED 

FOR A DEVICE TO PERFORM ITS FUNCTION */ 

ITIKE (INTERRUPT#) = TIMER + DEVTIME (INTERRUPT# ) ; 

RETURN ; 
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TESTER: PRCC ; 

/**** THIS PROCEDURE IS USED TO SET THE SYSTEM STATE 

EOR TEST PURPOSES. ***/ 

/*** TRACE IS USED TO ENABLE PRINT STATME NTS IN 

-SELECTED PROCEDURES. *****/ 

DCL TRACE BIT'1) EXTERNAL; 

TRACE = TRUE; 

5SINCLUDE REQRELD; 

DCL TEST MSGS (3) CHAR(8) INIT ('IPDEV1 », 

1 OPDEV 1 1 , 1 EOPDE V 1 ') ; 

/*** RELEASE MESSAGES TO CREATE DEVICES FOE THE 
INPUT CONTROLLER, OUTPUT CONTROLLER AND THE 
FILE MANAGER. *****/ 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MSG SEMAPHORE, PltLu2, FIELD3. F IELD4 . FI EID5 . FIELD6 = 0; 
CHAi? FIEIB 1 , CHAR F.IeLd2 , CHAR FIELDS, CHAR FIELD4 = *»; 

ANSWER REQUEST =~FALSB; 

FIELD 1“= SiJCL; 

K = 4; 

DO I =1 TO 3; 

ALLOCATE INPUT' BUFFER SET (IBUFPTR) ; 

BUFFER LOCATION = IBUFPTR; 

IF (I<3T THEN INPUT BUFFER = '5)o)ADD ' ||IEST MSGS (I) ; 
ELSE INPUT BUFFER =~'SOADD * | | TEST MSGS (3) |T 

1 BIG BIRD* ; “ 

CALL PRIMITIVE RELEASE (KT^INPUT, MESSAGE, ERROR) ; 

END; 

END TESTER; 

END HDEIVER; 
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^INCLUDE NAMCHGR; /***** INITIALIZATION ♦****/ 

(CHECK (ERROR) ) : 

INITIALIZATION: PROC OPTIONS (MAIN) ; 

DCL TRACE BIT ( 1) . EXTERN AL ; 

IF TRACE THEN 

PUT FILE (SYSPRINT) LIST (* ENTERING INITIALIZE*); 

ON CHECK (ERROR) 

EEGIN; 

IE (ERROR - 1 = 0) THEN DO; 

PUT FILE (SYSPRINT) LIST (* IN INITIALIZE, ERROR = *, 
ERROR) SKIP ; 

(NOCHECK (ERROR) ) : BEGIN; ERROR = 0; END; 

END ; 

END; 

DCL ERROR FIXED BINARY INIT(O); 

^INCLUDE REQRELD; 

96 INCLUDE BCcLCL; 

%I NCLUDE FCEECL; 

^INCLUDE GEN EEC; 

96INCLUDE OSDCL; 

^INCLUDE 5EGSTRS ; 

9fcl NCLUDE INTACTV; 

$1 NCLUDE INTSET; 

96INCLUDE CASESTM; 

/*** INITIALIZE INTERFACE VARIABLES ***/ 

ANYPROC = 0; 

ii if ACCES = * 0 1 * B; 

## ACQRD = 1 10* B; 

#ASSGND = 4; 

# if A V A I L = 0; 

#tf CLOSE = *1*B; 

#CRATR = 1: 
ifCNT SZ = 4; 

^DEVICE = 3; 
if DI N A ME = 3; 

#DST AT = 2; 

# F I L E = 2; 

# F N D 0 P 1 = 1; 

#FNDCP2 = 2; 

#FNDOP3 = 3; 

& F N P C F 4 = 4; 
f- F N D 0 P 5 = 5; 

#GE1 = * 1 ' B; 

#GO = * 1 * B: 
if #HOLD = * 0 ’ B ; 

#LEF T = * 0 * B ; 

# L QUZ «= 4* 
i-i^OACC = ’ 00 ' B; 
if#HCAVL = 3; 

# 0 F I L E = 5; 

if ^ OP E N = * U ' B ; 

#OS = * 0 * B; 
aCvJNER = 2; 

# PCT = 4; 
ifPCTNAM = 2; 
if t P E R a F = 1 ; 
it if P R I V = 1 ; 

# PUT = * 0 * B; 
i 4 if R E A E = 1; 
if if R E A E A = 0; 
if # R E A C R = 1; 
i 4 # R E A E S = 4: 

BRIGHT = * 1 * B ; 
if R QUE = 3; 

4 ilEAC LE = • 1 1 • B ; 
if if 3 A l I< = 3 : 
it S E K i C R = 1 ; 
iMfSHRD = 0; 
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#S OR P = 6; 
##?EElF = 0; 

# T F I L E = 7: 
#»TGRFF = 2; 

# USER = 1 1 'B: 

# # WR 1 12 = 2; 

# # WRI1 A = 7; 
## WRI1H = 3; 

# # W R 1 1 R = 2; 
##«RI1S = 5; 
fcXNAME = 1; 



$$ADE = 0; 
SSCIGSF = 4; 
SSDELET = 1: 
SSDIRAD = 18; 
S $DI RL’L = T9; 
SSDIRRD = 17; 
SSDGNE = 1; 
SSDS1YF = 5; 
S320F = 15: 
SSEX1NT = 5; 
SSFAII = 2; 
SSFILCP = 12; 
$$IUIFC= 7; 
SSJCl = 16: 
S30PENF = 3r 
330FCCM = 6: 

$ $ 0 P R 1 R = 20; 
$$PASS = 14; 
SSPERMF = 3; 

$ 3 R E A C = 1: 

3 $ SP ACE = 2; 
S3SPCMH = 0; 
53STCF = 10; 
S3TEMPF = 4; 
S3TERM = 11; 
S$ WRI1E = 2; 



oJBOEMNR = 9; 
3BRMVEC = 1; 
3CHIID = 4: 
3CYCLE = 12; 
3FSTA1 = 10; 
3FWCN1R = 11; 
3GET = 1 1 » E; 
&LFTSIB = 5; 
c)M5G FIR = 1; 
a) N R PGS = 6; 
SPA'S!: NT = 3; 
3PE N R = 7: 
ci) P RT R T Y = 1; 
cJPUT = 1 0* E; 
&QUANTM = 2; 
&KESVEC = 1; 
SRGTSIB = 6; 
3STA1E = 1; 
gJSTAICS = 1; 
c)S YS FRO - 1 ; 
3XNAKZ = 2; 



33BLKEE 
cJ a) B L K C T 
c) 3 R £ D Y A 
BcuKUN = 
cJa)S U SF D 



= ' BLOCKEDR 
= ' BLOCKED! 

= * READY A’; 
• RUN HI HG * ; 

= « SUSPEND* 




/*** INITIALIZE LIMIT VARIABLES ***/ 

PCB_LIM = 50; 

ALL INT = 0: 

NUM'ElNT = 16; 

NUMECPU = 4; 

DEV L LIMIT = 101; 

DE V~ U”LI MIT = 110; 

FILl I LIMIT = 51; 

PILE” U~LI MIT =100 ; 

PCT I LIMIT = 111; 

PCT U”LI MIT = 120; 

S£M”L”LI MIT = 1; 

SEM“LlMIT= 50; 



CPUREGS = 0; 
INTRUPT = 1 0 ' B ; 
INTRSET = 1 0 * B ; 



DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 



STATE (10) FIXED BINARY (31) ; 

SYS PROC BIT (1), EXT NAM CHAR (8); 

(FATHER, BROTHER, PRI, CYCLE, INAME, LA STPROC) 
FIXED BINARY; 

SYSPROCESS (8) FIXED BINARY: 

ACCESS (120) BIT (2) INIT ( (120) (1) 1 0 
OWNER FIXED BINARY, DUMHYrB FIXED £ 
DUMMYB1 BIT (1) : 

CUMMYCHAR CHAR (8) INHaS)' 1 ); 

NULLPTR POINTER; 

MSG INIT POINTER; 



1 1 3 ) ; 
BINARY 



INIT (0) 



/* INITIALIZE A MESSAGE BUFFER */ 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MSG INIT = MESSAGE; 

FIELD 1-FIELD2, FIELD3- FIELD4, FIELD5, FIEID6 = 0: 

CHAR El ELD 1 , CH AR FIELD2 , CHAR FIELDS , CH AR FIELD4 = *»; 

RELElSOR = 0; 

MSG SEMAPHORE = 0; 

ANSWER REQUEST = FALSE; 

BUFF F RELOCATION = NULL; 

/*** CREATE PCB FOR ERROR HANDLER ***/ 

CALL PCBINIT; 



/***SET INITIAL SYSTEM STATE ***/ 

SYS PROCESSOR , PROCESSOR =1; 

CURL ENT PROCES S (SYS PROCES SOR) , S YS PROCESS ( 1 ) = 1; 



/*** ADD CODE FOR PAGE TABLE INITIALIZATION ***/ 

/*** SET STATE FOR THE ERROR HANDLER ***/ 

INAME = 1; 

CALL PRIMITIVE PCBDATA (I NAME, S) PUT, a) PE NR,SYS PROCESSOR, 

ERROR) ; 

STATE = 0; 



STATE (1) = 1 ; 

STATE (2j = 1; 

CALL PRIMITIV 



VE^PCBDATA (I N A ME , a) PUT, ESTATE, STATE, ERROR) ; 



/** INITIALIZE MESSAGE BUFFER FOR ERROR HANDLER **/ 

A L L 0 C A T E II E S S A G E BUFFER SET (MESSAGE) ; 

M ESS AG E -> MESSAGE BUFFER = MSG INIT -> MESSAGE EUFFER; 
CALL PRIMITIVE PCbUATA (INAME , a) PUT, aiMSGPTR , MESSAGE , 

ERROu) ; 



/** INITIALIZE RESOURCE VECTOR FOR ERROR HANDLER **/ 
CALL PRIMITIVE PCBDATA (IN A Mi ,aiPUT, ORES V EC, 

~SEM L LIMIT, PCT U LIMIT , ACCESS , ERRO R) ; 
ACCESS = ' OO'B; r 
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/* INITIALIZE A PCB FOR THE TERMINATOR */ 

SYS t ROC = TRUE; 

FATHER = . 1 : 

BROTHER = 0; 

PRI = 49: 

CYCLE = 0; 

EXT NAM = 'TERMINTR ' : 

CALX GETPCB (FATHER, BROTHER, EXT NAM,PRI,SYS PROC, STATE, 
INAME, CYCLE, ERROR) ; 

STAI£(2)=2* 

CALL P*IMITIV& PCBDATA (INAME, d)PUT, 3STAT US , d)5)RED Y A , 

ERROR) ; 

CALL PRIMITIVE PCBDATA (I NAME, ©PUT, ESTATE, STATE, ERROR) : 
CALL PRIHIIIVE - PCBBATA (INAME ,<2>PUT, cDPE NR, SYS PROCESSOR, 

ERROR) : 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MESSAGE -> MESSAGE BUFFER = MSG INIT -> MESSAGE EUEFER; 
CALL PRIMITI VE_ PCBDATA (IN A ME , 5) PUT, a)MSG PTR , MESS AGE , 

ERROR) ; 

FATHER, SYSPROCESS (2) = INAME; 



/*** INITIALIZE PCB 1 S FOR SYSTEM PROCESSES ***/ 
DO I = 1 TO 6; 

DO ACTION OF CASE (I) ; 

CASE ( 1) : - /* INITIATOR V 
EXT NAM = 1 iNTTATOR * ; 

PRI - = 43; 

E N DC A S E * 

CASE (2): /* INPUT CONTROLLER */ 

EXT NAM = ' INCONTRL * ; 

PRI”- 48; 

ENECASE * 

CASE (3): /* OUTPUT CONTROLLER */ 

EXT_NAM = • OUTCNTRL*; 

PRI =48; 

EN EC A SE ; 

CASE (4): /* FILE MANAGER */ 

EXT NAM = 1 FILEMNGR 1 ; 

PRI = 45; 

E N EC A ^ E • 

CASE (5V : /* OPERATOR SYSTEM COMMUNICATOR */ 

EXT NAM = 'OP COMM*; 

PRI - = 49; 

ENECASE; 

CASE (6): /* FILE SPACE MANAGER */ 

EXT NAM = 'SPACEMAN'; 

PRI = 45; 

BROTHER = 0; 

RATHER = SYSPROCESS (6) ; 

ENECASE; 

end of cases; 

CALX GXTPCB (FATHER, BROTHER, EXT NAM ,PRI,SYS PROC, STATE 
, INAME, CYCLE, ERROR) T 
IF TRACE THEN PUT FILE (SYSPRIwT) LIST ( 

'CASE INDEX =' , I, 'INAME =*, INAME) SKIP; 

BRCT HER = INAME; 

CALL PRIMITIVE PCBDATA (I NA M F, , ci)PUT , OP E NR, SYS PROCESSOR 

, ERROR) ; 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 
MES5AGF->MESSAGE~3UFFER = MSG IN IT->MESSAGE BUFFER; 
CALI PRIMITIVE PCB DAT A (I N A M E ,3PU T , d)M SG PTR , ME S S A G E , 

ERROR) ; 

STATE (2) = 1 + 2; 

CALL PRIMITIVE PCBDATA (IN A ME ,3 PUT, «)ST ATE, ST A TE , E HR OR) ; 
C A L L PRI MITI VE PC U DAT A ( I N A M E , A P U T , 0 ST A TU3 , J) a) R ED Y A , 

E R R 0 R ) ; 

SYSPROCESS (J+2) = INAME; 

If ( ( I > 1 ) 6 (I < 6) ) THEN 

CALL PRIMITIVE PCBDATA ( L ASTP ROC , a) P UT , 3LFTS I B , I NAME, 



LA5TPROC -= INAME; 



ERROR) ; 



END; 
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/* CONNECT LINEAGE OE SYSTEM PROCESSES */ 

FATHER = SYSPROCESS (2) : 

LASTPROC = SYSPROCESS (7) ; 

CALL PRIMITIVE PC3DATA (FATHER, a)PUI, a)CHILD , LASTPROC , 

ERROR) ; 

/* CONNECT FILE SPACE MANAGER TO FILE MANAGER */ 
FATHER = SYSPROCESS (6) : 

LASTPROC = SYSPROCESS (8) ; 

CALL PRIMITIVE PCBDATA (FATHER, c)PUT ,a)CH I LD # LASTPROC , 

ERROR) ; 



/* SET UP SEMAPHORES */ 
DO I = 1 TO 19; 



EXT NAM 


= 'ENDJ03': 




OWNER - 


SYSPROCESS (2) 


; /* 


’■EXT NAM 
OWNER = 


= ' ERROR' ; 
SYSPROCESS (1) 


; /* 


’ext NAM 
OWNER = 


= ' F ILEOP * ; 

SYSPROCESS (6) 


; /* 


’ext NAM 
OWNER = 


= 'INAME'; 
SYSPROCESS (3) 


; /* 


*EXT NAM 
OWNER = 


= 'INPUT'; 
SYSPROCESS (4) 


;/* 


* EXT NAM 
OWNER = 


= ' J OBQSP 1 ; 
SYSPROCESS (4) 


;/* 


'EXT NAM 
OWNER = 

T? • 


= ' NEW JOB ' ; 
SYSPROCESS (3) 


; /* 


~&XT NAM 
OWNER = 


= ' OPR 10* ; 
SYSPROCESS (7) 


;/* 


’ext NAM 
OWNER = 


= 'OUTPUT'; 
SYSPROCESS (5) 


;/*0 


* EXT N AF 


= 'REDYAQUE' 





ENPCASE; 
CASE (11) : 



OWNER = S YSPROCESS (1 ) 



EXT NAM = 1 IEUFFER • : 
OWNER = SYSPROCESS (1) 

ENPCASE; 

CASE (12): EXT NAM - 1 1 NT DEV 1 ; 

OWNER = SYSPROCESS (1) 

ENCCASE; 

CASE (13): EXT NAM = 'OBUFFER*: 
OWNER = SYSPROCESS (1) 

ENTCASE; 

CASE (14): EXT NAM = 'PUTOUT'; 

OWNER = SYSPROCESS (5) 



ENPCASE; 
CASE (15) : 

ENPCASE; 
CASE (16) : 

ENTCASE ; 
CASE (17) : 

ENPCASE ; 
CASE (18) : 

ENPCASE; 
CA^E (19) : 



EXT NAM = • WAIT* ; 
OWNER = SYSPROCESS (1) ; 

EXT NAM = 1 INTERRPT* ; 
CWNER = SYSPROCESS (1) 

EXT NAM = ' I NT DEV ' 

OWNER = SYSPROCESS (1 ) 

EXT NAM = 'SPACE'; 
CWNIR = SYSPROCESS (8) 



ENPCASE; 

enp_of_cas£s ; 



EXT NAM = 'PR INTO'; 

owner = s ys process (2) 



TERMINATOR */ 
ERROR HANDLER */ 
PILE MANAGER */ 
INITIATOR */ 

INPUT CO NTRCILER*/ 
INPUT CONTBOILER*/ 
INITIATOR */ 
CP^COMM*/ 

UTPUT CONTROLLER*/ 
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END 



CALL CREATE RCE (#SEMFOR,EXT N AM , OWN ER , EUHMYF B , DU KM YFB* 

DUMMYCHAR,DBMMYFB,DUMMYFB,DUMMYFE, 

I NAME, ERROR) ; 

IF TRACE THEN PUT FILE ( SY SPRINT) LIST ( 

•CASE INDEX =• I »INAME =* , INAME) SKIP; 

ACCESS (INAME) = fr#ACCES; 



DO ACTION 

"Case n 

CASE 
CASE 
CASE 



A 

3 

14) 



OF CASE(I) 
$£NDJOB= 1 N A M £ ; 
TERROR = INAME; 
SFILEOP = INAME; 
JINAME = INAME; 
NULLPTR = NULL; 
DO J = 1 TO 30; 
CALL PRIMITIVE 



ENDCASE; 

ENDCASE; 

EN DC ASE ; 



i 



* 30 USER JOBS MAXIMUM */ 
ELEASE (ANYPROC, $ I N A M E , 



END; 



NULLPTR, ERROR) 



EN 

END; 



ENDCASE; 



CAS.E. 


,5) : 


CASE 


6 j : 


CASE 


[7 ; 


CASE 


8} : 


CASE 


9 : 


CASE 


10) 


CASE 


11) 


CASE 


12) 


CASE 


13) 


CASE 


14) 


CASE 


1 5) 


CASE 


16 


CASE 


17 


CASE 


18 


CASE 


19) 


D OF 


CAS 



SINPUT = 
SJOBQSP = 
$ NEW JOB = 
SOP R 10 = 
S OUTPUT = 
#R£DYA = 
$IBUFF= 
$1 NTDrV 
SOEU FF= 
SPUTOUT 
$WAIT = 
$1 NTRPT 
SINIDEV 
$SP AC E = 

Sprint^ 

^ • 



INAME; 

I N A il & ; 
INAME; 
INAME; 
INAME; 
INAME; 
INAME; 

= INAME; 
INAME; 

= INAME; 
INAMn;; 

= INAME; 
= INAME; 

INAME; 

= INAME; 



ENDCASE; 

EN DC AS E ; 
ENDCASE ; 
ENDCASE ; 
ENDCASE; 

ENDCAS E ; 
EN DC AS.& ; 

ENDCASE; 
ENDCASE ; 

ENDCASE; 
ENDCASE; 
ENDCASE ; 
ENDCASE ; 
ENDCASE; 
ENDCASE ; 



MESSAGE = MSG INIT: 

DO I = 1 TO 87 

INAME = SYSPROCESS (I) ; 

IE (I > 1) THEN 

CALL PRIMITIVE PC3D AT A (I N AME, itfPUT r SEES VEC , 

SEfJ“L LIMIT, PCT U LIBIT , ACCESS , ERROR) ; 
CALL PRIMITIVE P"CBDATA (I , o)"SET, d)PRI RTY , PRI f ERROR) ; 
CALL RCBPUTQ ( fITEDYA , if OS, I , DUMri YFB , PRI, NULLPTR r 
DUMMYFB, ERROR) ; 

DO J = 1 TO 2* 

ALLOCATE OUTPUT BUFFER SET (C3UFPTR) ; 

BUFFER LOCATION - = OB Uf PTE ; 

CALL PRIMITIVE RELEASE (InAmE.SOBUFF, MESSAGE, 

ERROR) ; 

ALLOCATE INPUT BUFFER SET (IB UFPTR) ; 

BUFFER LOCATION = IEUFPTE; 

CALL P "Hi MITIV E RELEASE (INAME , $IBUFF , MESS AGE , 

ERROR) ; 

FND; 



END; 

FRuE MESSAGE -> MESSAGE EUFFER ; 
CURRENT PROCESS = 0; 

CALL PRIMITIVE SCHEDULER; 
INITIALIZATION ; - 
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aft#***************#******#**:*# 
PREPROCESSOR SIMULATION MACRO. USED TO INCLUDE THE 
INDICES AND PRINT OUTPUT MESSAGES FOR SIMULATION. 

"ENA BLED" BY %INCLUDE SIMULTB; */ 

55DCL SIM START ENTRY (CHAR) RETURNS (CHAR) ; 

%DCI SI M — INTERRUPT PT ENTRY RETURNS (CHAR) ; 

%DCL oJSlMPT FIXED; T 
XDCL SIM_£ND CHAR; 

XSSIMPT - 1: 

%SIM END = * ECL SMLPT (aSIMPT) LABEL; IC = 1 ; 

SIMEND: RETURN; 1 ; 



9?SIM_STAR1 : EROC (c&SIMNAM) RETURNS (CHAR); 

DCL (2SIMNAM,d>SIMSET) CHAR; 

ESIMRET = 'DCL IC FIXED BINARY EXTERNAL; 

PUT FILE (SYSPRINI) LIST ('• ENTERING ' ' 

II3SIMNAM i J * ' » »IC=' ' ,IC) ; GOTO SMLPT (IC) ; 

SMf pt n i • • * • 

RETURN (2SIMRET) ; 

%END; 



%SIM_INT£ERUPT_PT: PROC RETURNS (CHAR) ; 

3SIMPT = cDSIMPT +1; 

RETURN (»IC = 2) SI MPT ; GO TO SIMEND; SMLPT /asiMPT) : ;'); 

%ZND ; 
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